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Fourgreat new add-ons from Ram, Njmber Ore ir everythinetor the 
Speclrum... 

TURBO INTERFACE 

Outper farms any otfier Spectrum mtertace. Supports Kempston, 
PrDlek. inter face 2 and ROM cartridge software, with alull eipansiar busat 
ttie rear.TheTurbo works with two standard joysticks, makingthe most of the 
Qjitkshot il's rapid-tire action. Features a unique built-ih power safety 
device. Amazing yafue at£22.95 

WilCKSHOT II AUTO RAPID-FIRE JOYSTICK 

The top Eamesioystickwithitssieektriggerlire button and an aulo-fire 
switch for continuous shooting - a snip at oniy £9.95 

SPECTRUM INTERFAX 

This Kempston-compatible interface adds real games power to your 
Spectrjm. CostS)ustf9.95. 

SPECTRUM UPGRADE KIT 

Boost your 16K Spectrum to a full 48K, allowingyou to run all the latest 
and greatest software. Only £21. 95 

Where can you get your hands or Ram's amazinESpectrumadd-ons? 
You cansee them at branches ot Boots, Menzies, Greens, Speclrum Group 
computer centres, and good computer stores eyetywhere. 



e Spectrum Tuit»fnlerface(5|af £22.95. 

Quictehot yoy5tick(s| af £9,95. 

Spectrum lnterface(s)at£9.95 

_ Specfnjm Upgrade Kitfe) at £21 95. 
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r local shop an 


> load. Still 


hlr|1£6.95 


rely the pre- 
vorth seeking 



jpon us, Preslel reallv comes in- 
xo Its own flsTHE majDr travel io- 


^^■ZX COMMUNICATIONS^^ 

On-Line 


WA„ ,KJ^.,™ 






LD B,A 


infomalion is freElv a i/a liable In 


with 


AND7BH 

JR NZ.rine error 

em ,B - 

JRZ.WAFT RX 


Ihough some of the data is iri 
■closed user groups' and for use 
only by Ifavel agents. You may 


Micronet 


INA.(7FH)- 
AND7FH 


trayel agents and so Is slightly 


and 


the normal 7'-bll, even-pahty 






AND 7FH to remove the parity 


stans on page 54504. If you 
loot around these pages you vu ill 


Prestel 


bit. H you choose the 8-bil, no- 
parity mode described shortly, 


feriy sailings still liave space for 


by Alan Giles, 


KliJl^TSpLTlS' 


sailings cacry which fares - 
sometimes it can pay you to 


author of Melbourne 


while^urirg "he™oceVot sa^ 


cross tha channel in thie middle 
of the night or the middle of IhB 


Houses 


i;K^°„d"."SmS°.'n" 


dear'eoctly which sailinas 
these cheaper fares apply to 


Spectrum Micronet Book. 


Which Is receiving. However, 
established the carrier should 


Other ferry operators run similar 

sometimes accessed By keying 
hash (ENTER) from (he normal 
information page tor the mat- 
ching sailing. 


^:jm»\ ' 


line break indicates problerns 
with the telephone line. 


hotels, British Bail, overseas 
tourist boards, the English, 


■MMMIH .1 WW 


enough lo remove a byte before 


BcTa'^ds ^and ^Bri"sh Tourisl 


■—■'----'— ^^^ ^--^ t^mr . , 


noise on the telephone line has 
corrupted the data. After such 


Authority all have plenty of 


... .^r 


an error you must repeal the LD 


pages, so there's sure to be 


fl 






r 1 




your Prestel directory lo help 


" 




you hnd the right page to start 
on, and start looking around. 


f^ I^Ah.0^ l/tv c^n^^ 


■"'l "-i'^i '"n'rbv'iThs's b'een 1m1' 


If you are looking for a last 


cp r^u^tm wf IA9^JWV 1 




minute holiday, the pages of 

E^llartHhu Iftatta 1'J^\ anH RP 




VTXOOno invites you to 


:)tanaoy ^page j^ i i ano or 
Travel (page 290) may well 




quest retransmission. 


haye what you are looking for. 




When the VTX5000 is swit- 






ched on it sets itself up in a 


large tour operators arranged by 


.. .: Jte of LDA,data byte 


'7-blt even-parity' mode, which 


flateanfldestlnation. 


■11 mode. Dm-(7FHrA 










school that uses Spectrums 












be worth telling them about The 


ending programs or data. You panel switch to the RX posilio 




Times Network for Schools 


an gel "user to user" software by using the code 


more useful, as it allowsall eight 


ITTNS). This educationally 


vhich simplifies the use of this 






acillty , but if ynu do not have a LD A,36 H 


used to carry meaningful infor- 


Gold ITT Dialcom technology 


omething more complicated 


resets the 8251 and sets 3 -bit 




han It allows, it is possible to The transmitting and recelvin 


no-panly mode 




rive the 82 5 1 communications stations obviously need to agre 






hip in the VTX5000 directly In on what sequence of bytes wi 


LDA.40H 


Iheir education authority and 


nachinecode. trigger the transmitter to lur 








LDA.6FH 




ftheVTX5000inthaTXpDsi- versa. As it takes time to tur 




grams. It also gives access to 


on, thecode IhB electronics round and 




PrnMrcom^u^er'^ed bj Z 


LDA,31H mfrlewtTans'^tteiThotildwai 
OLTTIFFHl.A a short while beforesendingany 


!'he''v^a*'r?o''usmachine'cc3'e'"sni™ 


TheVTXBUOO Micronet 












mode switch on iis fronlpanel 1 




between a pair of VTXSOOOs 


which most people hardly ever b 


y a routine such as: routine such as. 


Happy Communicating! | 


,. 
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■SPECTRUM REVIEWS! 



OUICKSOFT 

Clive smith looks at some slightlv 
unusual software 



DISCOSCREEN ^"^ ^^.-^ Ihen vq. a,e told .d Bee rf rherB «.BS a male ve,- 

Ash PrOdUCtS,E7.95 ^°X^r^aT '' " ''°Th"lfcniB«elifl"aL 

(M /Drive E9.95) There are ihiee sets of ques- arfl I have to admit the geme difl 

acr06s this one. Its called Disco the ne«t, 'Emolional Siflbilitv' «__„,__ 

Sctaen. and is used to convert and the last is 'Tougki /Tender- CAR CURE 

muBic frori your stereo into mindednesB'. There ib a small SimtrOll 

^ ''ro ram °a" 'o°mns on ''°°|''"^' '" ""'^fr^^Pr'^lesJor ^7?? 

(and all you have ID do is Hans Eysenckand Doctor Glenn H»,>.h;,=^ nf R 



PAPER flasfias as well as pio- 



graph ot 



The program is des 




KNOW YOUR OWN 
PERSONALITY 
Mirrorsoft 
£9.95 



ling yoj find inside I realise this game is 

, occasionallv. You novelty, butitwouldsla 
i jp your score at the its own for ths poksr al 



Vm^ol 


Ash 


rDdi>ctB.POBDX610,B 


mlnghflmB17-;)E- 


poker 


M.rro. 


Similron. Address n 


,eldGsrrien.,Lu,,. . 


T.^'o^ 


Msrli 




e.S,evena«.,M.. 




THE tape backup "device". 



POWERFUL UTILITIES 



INTEHFIkCE in 

THE IMPOSSIBLE HAS BEEN DONE 

iramav. 

|l<inwsr>»>fiil<;ri>drlv«canrtdg>|. pfoflfum. (Sa«da..Kr«n.| 

• V>fy.v«y,uiylDU».|IICIIVC»n • WlllalKitavOOMps. |Normal>p«d 

macmne copy c 

• Allpn^taflureLOADandmjNancc •ProgranHwPllfei.OADInd«p«n(r«ntly ^"j9 J"^ t*;' ot^f , f"^ —<' "V ** 

ONLY El 4.95 



MICRO CENTRE MICRO CENTRE 



ONLY £39.95 Inc. PftP 



COMPETITION 



Ferguson 

TV/Monitor and 

interface 

This issue we have an excellent colour 
TV/Monitor and Spectrum interface up 
for grabs! 




COMPETITION 



'ace, Ot coufSE, they're not ex- Thp DulAC 



TUB MCOl has eight chan- acll^ cheap lat£!29 ahdESO 
he TV sodon of vour choice SLCh thing ^a's ! 



The competition 



AtguE Specialpst MA20 Intei 















Iha pictu 




clearly su 


perior to that of 























strain or the edge corni 




Very iisnsihly, ,t has a Ih 














elps 



gone Into its design. 







• Superb pietj 

• Quick and ea 






Software Farm 

The winners of the Soft wart 



D.J.BaiiBrnfeind 
P.W. Carver 
Steven Simmons 



precedence. Vour lists will then lists most closely match 
ipilBdby Ferguson, and who sub 







tput, and when 


1 So, 






























speech synthes 








• Asia 




lent Idea 
















telly and 


of''lhe''sp'ec 


^ruml^irimp^ove 


d X'r' 


jDtu?es'm"secon7 




envelop 




eyoLVe 




nfl actually sound 




'',';'',h°°^|^™„/,^| 




dividual 








J may have gjes 








by post. 








a by the cnmbin 


- writte 


on the back of 


the 




ture issue of ZH C 
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I SPECTRUM UTILIT Y I 



Machine Code 
Loader 

A general all-purpose program to load 

machine code into the Spectrum 

memory. 




1 REM general nachjne code 

entry program. Press 
t-a stop. 

2 REM ^HHn n^ ^ []m |^ n H^ I«<»^^ ^^ 

IB INPUT -enter start address 
start with H or D to 
Indicate hew or declnal -| LI 
NE a* 

2B IF a«(l)»*d- OR a*U)''D- T 
HEN LET addr^VAL a«(2 TO I 

3W IF a»(l)--h- OR a.in^-H- T 
HEN LET aC^aC(2 TO ) : GO SUB 10 
00: LET addr=a 

to this addreas-l (Y or Nl " 
I LINE bC: IF h«--y- OR b»=-V T 
HEN CLEAR addr-1: LET addr-PEEK 

337304.2B6»PeEK 23731*1 
SB INPUT -Are you going In ent 
er code In Hex or Decimal (H or 

Dt ■! LINE b* 

100 IF b«='d- OR b»=-D' THEN G 



120 IF c«-*3' OR c*-- 

TOP 
130 FOR j-1 TO LEN c« STEP 2: L 

ET ■••■c«IJ TO j*JI: GO SUB 1000; 
00 SUB 2000: NEXT j: GO TO 110 
2B0 INPUT -enter codes one at a 
tine -I LINE a«; if a*»'5- OR a 

•"•S- THEN STOP 



9»9 STOP 



■«'l )»(16r I (LEN a*)-l) 
1010 RETURN 

2000 POKE addr.a: PRIN 
>a«: LET addr-«ddr*l: I 



'XCOMPUTINGAOGUSIrSEPTEMRFR 



ir YOU USE YOUR COMPUTER TO 

PLAY GAMES, THEN YOU CAN'T 

AFFORD TO MISS. 




Eacb issue will be produced in 
ooperatlo]! with Eecaan our 
Interplanetory Adviser wbo on Ms 
home planet, Aargon, Is a member of 
the Association of Supreme Players. 
He will be monitoring developments 
in the games industry and advising 
Computer Gamer readers ivitb all 
their gaming problems. Included in 
each Issue will be pages of revievr of 
the latest games releases, special 
Adventure features and a help-line, 
invaluable articles on how to 'crack' 
specific games a high-score page, 
exciting programs to type in for 
most of the popular home computers, 
news, competitions, reviews of 
peripherals and computers 
themselves if relevant to the games 
field and LOTS more. 



Also, all readers of Computer Gamer 
will have the opportunity to join 
our tremendous Reader's Club 
each mexnber mrlll receive 
membership card and a regular 
newsletter which will contain up-to- 
the-minute news and all sorts of 
offers on a variety of products. 
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■SPECTRUM REVIEWS! 



Spectrum lessons 




^SPECTRUM REVIEWS! 




MICROFRAME - AN ANSWER TO A PRAYER FOR SPECTRUM USERS!.. 



PLEASE CONTACT 

GORDON MJCRO LTD- 

3 CALLENDAR ROAD, 

HEATHFIELO IND. CENTRE 

AYR KAa 9DJ, 

SCOTLAND. TEL: (0292) 280467 

s 




C%'W^^^ PERFECTION ASSURED 

^%ICf ■ FLOPPY DISK MEET ANSI, DIN 

k^Alh^^ ECMA, IBM. JIS AND SHUGART 

SPECIFICATIONS 
■JWWgfJWWjnPWJ EVERY DISK IS CERTIFIED 

lUUyUaMUWKiiiul and guaranteed to be 



100% ERROR FREE 

LOW PRICE - HIGH QUALITY 

"TJACK .OXBSOP1. 

^!a a'L) 10 50 

S'SD/D .7 1100 ADD V.A.TTO 

D'SD/D ,3(y, ALL PRICES. 



,15 00 



40TBACK '■°°'< SPECIAL BULK PRICES 

s/s orD aan *^'^- ^°° "^'scs per box 

S/S D/D ■ ■ 94p _,. H,.. *D° V.A.T- TO 

D/S D/D 1.05^ ^' """ ALL PRICES. 

l?Jnfrf "* CARRIAGE FREE 

D/lD;D::::::::.:,';^a -^or bulk orders 



SINCLAIR CLINIC 

COMPLETE REPAIR SERVICE 

For advice and hefp ring or visit us at our 
Microcomputer centre. 

PROBABLY THE WOST SPECFAL.SED COMPUTER CENTRE 



* MONITORS 

• MODEMS 
■ PRINTERS 



ALL COMPUTER CASSETTES"" 



-L PRICES PLEASE 
PACKING 



TV & Electronic 

Components 

MICROCOMPUTERS — SOFTWARE - pcB;PHEHAI ^, 
ELECTRONIC - TELEVISION ~ COMPONENT=i 
AERIAL — EQUIPMENT 



■ TRADE COUNTER 



BULK! LEADERLESSI P-V. TUBES 

C15 CASS PLFA<^F °'P'-''2X ClosedWEDpm 

»-iai-«aj,. MLbAbE 104 ABBEY STREET, ACCRINGTON.LANCS 

RINfi FOR Pnil^PC Tel. 0582 23715 . --^nt-a 

nilNVj rUM MHIOES Telex 635563 Griftln G l, 



FOR FAST FAIR AND EFFICIENT SERVICE 



TRADE COUNTER- 

7%4LS EPflOMS 

CMOS VOLT REGS 

LIN ICs ZEMOIODES 

TRANSISTORS RESISTOHS 

LEADS MODULATORS 



EK COMPUTING Al 






SPECTRUM DELUXE KEYBOARD 

HALF PRICE!! 

ONLV 

£29.95 




DUE TO BULK PURCHASE WE ARE 
ABLE TO OFFER THE 68FX 1 
KEYBOARD AT AN EXTRA SPECIAL 
LOW PRICE OF £29.95. THIS IS 
TRULY A SUPERB KEYBOARD 
WHICH FEATURES INCLUDE:— 

• FULL SIZE SPACE BAR 

•INDIVIDUAL GOLD PLATED 

KEYSWITCHES 
•SINGLE ENTRY KEYS INCLUDING 

FULLSTOP. SHIFTLOCK, EDIT, 

DELETE, CURSOR CONTROLS, 

BREAK, +, ■, AND RUN 

• SOLID %" THICK PLASTIC 
CASING 

• SIMPLE STEP BY STEP 
INSTRUCTIONS 

• NUMERIC KEYPAD 

3t £59.95 but al 



This keyboard 
this price it is L 


NBELIEVABLE 


PLEASE SEND 


ME 


D KEYBOARD 




D INTERFACE 




D INTERFACE 


. JOYSTICK 


□ SPECTRUM 


UPGRADE 




THE ULTIMATE IN 

JOYSTICK 

INTERFACES 



Joystick 

ONLY £34.95 Inci 



SPECTRUM UPGRADES 



ONE SIMPLE KIT 




The kit reviewed as 'BesI Buy' 



iinnnnnnnnnnr 



Q 



FOX ELECTRONICS 

FOX HOUSE 35 MARTHAM ROAD, HEMSBY 
GREAT YARMOUTH, NORFOLK NR29 4NQ 
Tel: 0493 732420 (24 HR Ansaphone/sales) 
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ZX81 CAME 



o 



Keep your ringers flexed for this fast 
action game all the way from Ontario, 
programmed by Cyrus D. Feyz. 




game, Ihe playei is Ihe 
n squad who moves into 


d^""'^attd 




\S } 




levels offfl 


further featui 








number of e 




























wed ID retrace any part 
































heavily Bearded by the 
and the player must stay 


aach gam 


At Ihe beginn 
re displayed: 


gof IB 




after the 






ngbyofleririgfieldsofdif- 


enemy po 




sta- a 



I 



FIT IS 



10 CE E 

40 LET 



E ET I=-i 

HE ET I^i 

HEN ET H=~i 

HEN ET H=l 



^ 



HEN ?2<i 

E E ;L 

E POINTS 











1 = FJEELC '; 0: 'V 








-■ le PLINTS " 


E 






11=^ HO E 










































40 







RJ 1 TO Dr 






SesPEE 

56*PEE 



Adding the Plus T=gB 


A. J. Carter looks at the upgrade kit for HHS"!s"5° 


all those rubbery old Spectrums. ?o°:™.=" !"":,«" 

found that 1 had pushed ore 




















- able to lift It straight oft without working try Ihe STOP cc 






dropping in onto the circuit mand. If thisdoesnotwork it 






board stage 5 must be perform. 












- you have a model prior to issue straight on to stage 6. 








^^^H v- « '■^m.UlkZB^H 




^^HHIT- — ' ^ISbkI 


^■^- you will need a small spanner or modification to do. Find t 


^^S^ ^■'C^^a 


^^r -_ nuldnver, or if neither of these resistor marked R63 and sold 


KiJ^ munTil 


^Hl - ornair1>w'jaw p'lier™lo los^en this Orice^again you ''rrus't be care 


y^^H 






■r 




^^K removed you can replace theold tracks on the circuit board. Ha 




^^^^H heatsink with the one provided ing done this reattach the m 




^^B by reversing the above pro- halves of the case and rccc 






1 II _ ced^Kc^^ ^ ^^ ^^^ ^,^^,^^ ^^ ^^^ nec^ no?worrechlcfthrc; 


















soldenng a lead toa capacitor oo necl the power and sBparalal 






the circuit board. This capacitor iwo halves of the keyboard. 






will be labelled on the board es Stage 6 is assembling t 






C27 but as the Instructions bottom ha If of the case. Tumt 


Why bother 10 3 


dakeyboardto and the oonversio 


shov^, the position of this vanes bottom half upside downso v 


YDut 48K Specirurti? We", has been broker down into si» machine. Thisisthehardesipan "UPGRADED" which 


anyone who has tried 10 iiSB the stages. of theproceduieandagreatdeal stamped onto the case. A tlai 




keyboard for senous touch typ- dismantle your eicisting''s'pec'' sureThaTnli bkibs of''5olde?are SeVlhe posftion'of ?hrcjm 


ing or word processing will lell triim keyboard. To do this you dropped on the circuit as this will board bo that the sockets line i 


you what a sluggish respoOEB it musl turn the Spectrum upside damage the computer when the with the corresponding holes 




Sinc'la'i'rh^'E5e6n'fit^oaddafte' ea™hTf °hem^f rom^hrh^™AI quhe^ naJu'X' ?me?tedThB''d^^ IcreTs inw^he^JwoXiK at" 






what an improyemenl il is, similar to pul the scraws in posite side to the components, slot on the left hand side of tl 


So, having decided to gi«e because it is very easy to It nock as is the normal practise, but base. The next thing to do is 


your Spectrum the plus treat- ihem off the surface you ate when 1 came to reassamUle the fitthelegs. Uftthebaseup,sli( 


meni, do you send it off to working on and h; jund that the lead on the the legs into the slot sin the da 


Sinclair to be converted or take ages searching aro switch was not long and place the base back on tl 








soldering iron, then why not correct way up ar i tried lo solder it to the loose and sloppy they do ivo 
haveagoyourseltandBpendthe the front of the ri [ the capacitor, and when the lop is slticha 




Once you have received the ribbon cables. Thi ^tage, check to see thai sockets and screwing the t 


kil from Uncle Clive, the first the computet prii is long enough to reach half to the base . 


thing todo IS to check Ihal all the board to the keybi ing BEFORE you make All in all, the inslrurtionsa 


components ate present. This remove these from nection, othen^ise you precise and well thought oi 




because Sinclair have had the bons from ihe'^od 'n one sTdl that™ V not ?h at works wrh''9^9^%of7lhH 


good sense to include an il- dicularly to the p.c.o. because required at all. parly add-ons and the em 


lustrated parts list in the Inslruc. pulling them al an angle may Stage 4 is testing the range of Sinclair add-ons, not 






chBS, resistors and heatsinks. damaged tendering your old of the new' keyboard, being Sinclair for the upgrade 1 


10°""" ''j*u?'e^5™Jus/ "^"^ keyboard useless. After temov- careful not to twist the ribbons something that would be forg 




don't go wrong, comprehen- the single screw that holds the computer. Then, fii at least one lurers and tell others how gl 


sive, illustrated instructions pcb to Ihe bottom half ol the screw into position to fasten the am that 1 have had the plus j r 


have been included in the leaflet case. 1 lound a magnetic two halves together. This is ed to my Spectrum. 


— "™.."'. 



Every 
Tuesday 





Home Computing Weekly 
is the magazine for: 

• News, fast and up to date — read HCW first 

• Hardware reviews, new machines and 
products reviewed fast 

• Peripherals assessed, all the extras you 
could want, with in-depth comments 

• Software selections; new software scrutinised 
carefully and quickly 

• Programming features for all machines. 
Learn BASIC and machine code from our How 

to.... series 

• Programs for all the popular machines eachweek 
• Lots of letters and hints and tips 



In fact, everything you've ever wanted 
from a weekly magazine 



READ HCW FIRST! 




ISPECTRUM CBAPHir<:B 

Fascinating and advanced graphics 

techniques explained by Miles Tftdalol 

Reading. 




■SPECTRUM GRAPHICS! 



- 1/^ ' 

/ / 

/ / 

o 1 1 1 f 1 '" 

Fig. 2; Three -dimen,«™l d.».ing on a 



10 


BORDFR 0: PA 


ER 0: INK 7: C 


L3 


LET t'PT/l 




30 




70 5TEP IB 


fl0 


FOR K-^O TO 


70 


^50 


GO SUB 200 




60 


NEXT ■ 




7B 


NEXT y 






FOP ■=-7D TO 


70 STEP 10 


90 


FOR y— 70 TO 


70 


100 


GO SUB 200 




110 


NEXT y 




120 


NEXT . 




130 


STOP 




200 


REN Any cDndltion go«> har* | 


210 






220 


PLOT 7Bt«»17 


ItyUfCOS t,z + (7 


04YI«5TN t 




230 


RETURN 







emove li 


e200 






3 TheH 


mispherBofrac 


us 50 


EQR( 


500 


.*- 


.,. 


Hee you 


v.,llb 


trying 


olind 


n mber 
G>2500 


soi. 


■.stri,: 


iZ! 


thenVet 




*yl>2600 



BJie 11 IS riBcessary to 
by 1000, so put in lin 


multiplv 
el20- 


onof LETi = 1000/SOR 

arses lx*x + y»y) 




ii/e ^ This function becom 


s intini 



CLASSIC BOOK-KEEPING 



by A.G. Clough F.C.A. 






OTHER FEATURES 



BALANCES - Journal 



synlan-STATEMEMTS WITH AGED 



£19.90 Poiligs paid 
Eia.MPoitsgepBld 

are supplied ONLVwith 



CASH BASIS ACCOUNTS 



ANALYSIS 



^ucatiooal 

SfiftiAoreforthe 

Spectrum s 




titespectruni 



Dasignea for 32 column! 



MANX TAPES, GAREY VEG, 

GLEN AULDYN, RAMSEY, 

ISLE OF MAN. 

Telephone (0624) B13071 



BB0^EiI 


W 


y»AFA^tv¥ 


gSMT 
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I SPECTRUM CAME 



Inferno 

David Peat adds fuel to the fire with this 
hot little game from burning Mansfield. 






level that the fire reaches ar 



iiiiiiiiiiiiiiiiniiiii'iiiP 


^ksH 


|^||;iS;l§;|:|; 



75, 10D and 150 tor 



Line by Line 






•GRAPHIC 


HHHUHHHHHHHH 


hJI 






r=l TO 7 














PAU 


3E 25 




I 


GO SUB 7000 
PAPER a: CLS 






=50 


LET 


c = 2)HNT 


RND»15)+1 

LET b=4: LET t 


ll 


en SUB 7Z0a 

GO SUB 7500 






631 IF 


-=3 THEN 


LET b=13: LET 


4B 


AT 1,1!-P0IN1 


AT ],Z3; -SAl 
S" 


ES 


=75 


IF tl=S THEN 


LET h=9: LET t 


60 


LET a«='ecc' 

LET p=0; LET 




4 


633 
=50 


IF c=7 THEN 


LET b-6: LET t 


73 


PAPER 2: INK 


z: PRINT AT 


16 


654 


IF 


=9 THEN 


LET b=10: LET 


ZXCOMPln,..GAUGUST.SEF^eM 


EF19S6 













SPECTRUM CAME 



rtKB 


IF 


■: = 11 THEN 


LET 


b 


-7S 










SS6 


IF 


c-13 THEN 


LET 


b 


=23 










65-' 


IF 


c=lS THEN 


LET 


b 


-25 










65e 


IF 


c-17 THEN 


LET 


b 


=25 










fi59 


IF 


t=19 THEN 


LET 


b 



c=23 THEN LET 



11=27 THEN LET 1 



5300 RETURN 

6000 REM 1HMMDVE LEFT*** 

6100: PRINT PAPER 0;flT 1' 



6100 RETURN 

6500 REM iHl-*FIRE*** 

6505 FDR w=l TO z 

6510 READ «,y 

6515 PRINT PAPER 2i INI^ SiAT i, 

6520 NEXT w 
6535 RETURN 

H liAT l.BiP: FOR r=l TO 10: LET 

t=B: FOR n=l TO 5: BEEP .05, t: 
LET t=t»l: NEXT n: NEXT r: BEEP 






710 IF b = 18 AND c=(H-l THEN LET 


6570 PAUSE 




5-5*1: PRINT PAPER 61 INK 0IAT 


6580 LET xl-INKEY* 




1,2915: LET p-pt 


: PRINT PAPER 


6590 IF x*=-y" OR .»='y THEN P 




6i INK 0iAT l,Sip: BEEP .1,30 


APER 6: CLS : RUN 3 




S0O PAPER 0: INK 


7: PRINT AT b, 


6600 CLS : PAPER 6; INK 1: PRINT 








AT 10, 5i -THANK VOU FDR PLAYING" 




350 IF INKEY«--0 


AND cf<29 THEN 


; STOP 








7000 REM INSTRUCTIONS 




900 BEEP .02,b 




7005 CLS : PAPER fi: INK 2: FLASH 




950 IF INKEY«=M 




l: PRINT AT 5,Bi-TDWERING INFER 




GO SUB 6000 








•770 IF b=18 AND 


rOd + l THEN PR 


7010 FLASH 0: INK 0;: print at 7 




INT INK 7i PAPER 


liAT 20, cJ-^-: 


,10! ra«id Peat- 




BEEP .1,-15: PRI 


IT AT 20, Ci PAP 


702a PRINT AT 10, 2i -Fire rages t 




ER l; INK 7i- * 




hrough a blnck of -flats, try to 




1000 INK 0: PRINT 


AT b,ci "U- 


catch the penple as they jump 




1100 NEXT b 




. Move the rescue boat to the 








right with key 0, and lett «it 






LET 7-24 






1150 IF r=2 THEN 


LET 1=15 


7035 PRINT AT 17, 5i "Press any We 




!50(* IF r-3 THEN 


LET 1=11 


y to continue- 




1600 IF r-4 THEN 


LET z=13 


7045 PAUSE 




1700 IF r=5 THEN 


LET z=7 


-■050 CLS 






LET 1=4 


-'060 PAPER 6: INK a: print at 3, 




1900 IF r-7 THEN 


LET z=3 


2;-Tne fire rises through the 




2000 QO SUB 6500 




building one level +or every 




2100 NEXT r 




10 juirps until the game ends 




2150 6D TO 6550 




when the fire reaches the top 






RIGHT*** 






5050: PRINT RAPE 


R 0iAT 19, d;- 


2rPo!ntrflr^h°3h''and^centr- 




5100 LET rl=d.l 




s1 "indaws, 50 Points for 




5200 PAPER 0: INK 


7: PRINT AT 19 


left or right of centre, and 





SPECTRUM CAME 





„,,™,.s„,„. 




.,..„, 




Hindow5. - 


-'590 PRINT AT I2,0ic«ll TO 2:;AT 




7061 PRINT AT 15,51 -Pres^ ^ny ke 


I2,4;c«r5 TO 22i;at i2,23ic«(2 






TO 71 i AT 12,31ib»(l) 






7600 PRINT AT ll,0ib»(l TO 2);AT 




062 


11.4;b«(l TO IBliAT ll,23ic*(l 






TO 2);AT ll,2Sib»(l TO 41;AT 11, 




63 


3l;b«( 11 




7B65 CLS 


--610 PRINT AT 10,0;i:m TO 21!AT 




7H70 PHINT AT 3.2; 'The +all5 are 






trorrv random po5itiun5 m^k 


TO 5);AT 10,3nb«(ll 










ch only those fall ing 4--om 


9,4;c«(2 TO 41iAT 9,7ib*ll TO 2) 




edge «iodo«5. fl catch must 












7080 PRINT FLASH 1 ; AT 15,5i-PRE 


a;b»(l TO 31iAT 9,27!C«<1 TO 21; 


ns 


SS ANY KEV TO START' 


AT 9, 3HbHl) 


ET 


7082 PAUSE 


7630 PRINT AT a,a|t«(l TO 21iAT 




7095 CLS 


B,7ic*(2 TO 31iAT 8,10Jc*lI TD 3 


P 


yi00 RETURN 


)!AT 9,I5!d«!AT B,17;c»(2 TO 6)i 




7200 REM GRAPHICS 


AT a,24ic«(l TO 2MAT B,31!d*(l) 


20 


7210 FDR g=65 TO 71 


7640 PRINT AT 7,0ib«U TO 2liAT 


DP 


7220 FOR n-0 TO 7 


-',7;b*(l TO 2)iAT 7,10!b«(l TO 3 




7230 READ l; POKE USR <CHR* g..„ 


);at 7,i7;b*ii TO 2iiAT 7,19;t»( 

1 TO 2).-AT 7,21;b*(l)!AT 7,24ib« 




7240 NEXT n 


(1 TO 21 i 


p 


7250 NEXT g 


7650 PRINT AT 6,0ic»(l TO 2liAT 




7260 RETURN 


6,7t05!AT 6,10ic*ll TO 3)1AT 6,1 


NT 


73F0 DATA 60,189,153,126,24,24,3 


7;c«(2 TO 31;AT 6,20ic»(l TD 21; 






AT 6,24(c«(l TO 21 i 

7660 PRINT AT 5,0|b«(I TO 211A"1 




0,0,0,0,0,0,255,235,0,0,0,0,1,19 




5,254,252,255,255,195,195,195,19 


5,10ib*(l TO 31!AT 5,17ic«(l TD 


SH 




21iAT 5,20!b*(l TO 21;AT 5,24ic* 










7500 REM BUILDING 


7670 PRINT AT 4,IldHllJAT 4,10! 


^ 




tin TO 31 !AT 4,20;<1« 

7680 PRINT AT 3,10|c»(2 TO 41 




7510 LET c«=Miihi^BF9tS^aES!:a[^«L 




to 


m^.tfaft^rnKm^n- 


B500 REM ***DATA FOR FIRE*** 




7520 LET d*='FC- 






7522 PRINT PAPER 51 INK 1 i AT 28 




it 


6, 14, 14, 14, 16, 16, 16, 18, 14, ie,lB, 




am- 


20, 16,22,14,22,16,24,16,26,14.26 


Us 




,16,29,16,30,14,30 

8600 DATA 14,0,14,4,12,4,14,8,12 




1^- 






7525 PAPER 5: INK 


,12,20,14,24,12,24,14,28.12,28 


3, 


752B PRINT AT 19,0;b« 


8700 DATA 12,0,12,6,10,6,12,10,1 




7530 PRINT INK 0i PAPER 5 I AT 18 


0,10,12,14,10,14,12,18,10,18,12, 


y 


,0ib« 


26, 10,26 








8800 DATA 10,0,10,4,10,8,8,8,10, 


op 


75S0 PRINT AT 16,0 


cS 


12, 8, 12, 10, 16, 8, 16, 10, 20, 8, 20, 10 




7560 PRINT AT 15,0 




,24,8,24, 10, 2B 




7570 PRINT AT 14,0 


t* 


S900 DATA 8,0,6,8,8,10,6,12,8,18 




7580 PRINT AT 13,0 








I3,3ic«(l TO 2)lflT 13,5;b*(l TO 


9000 DATA 6,0,6,10,6,18,6,24 




24)iAT 13,29ictll TO 2)iAT 13,3 


9100 DATA 4,10,4,12.4,20 



Alien 
£8.99 



IMindplay 



Greg Turnbull looks at games of 
strategy and tactics 



.Br, If the acknowlegden 

■as created by a group of 

rangely 'amiliBr ta those of the 






ariablv esMOfls your g 



The sppearance of this monster ^... 

IS accnrrpanied by mossagBs in- book or film aflaptions, such 



I've panicked under i 
attack, and so failed 
quickiy enough to i 

The inatr' 



photo-6toryof ihefilm.uD'othe addition of 




Splderman 
£9.95 






Some of thesB gr 



lcor^plete\ 



5. but tl 

lOugh quality to su 



in, though, the phor aphics, and'certoiri 

nice touch is the use of French, ing graphics, un'ottunBtely, t 

Instead of replying with the bor- not make for a stunning ga 

stuck for words, tttis program The meagre plot consist 

uses the Frsnch equivalent "Je collecting diamonds, fighl 

ne comprend qas". But as with enemies, and replanishing y 

ihetelephone.IheuBBof French spider-web fluid. This, fran 









IT'S 1985 — THE YEAR 
OF COMMUNICATIONS 





FOBrMSPECTBUMM 




E49.95 inc 


Orde< your 


VTX 5000 NOW a 






Preslel, Micronel BOO, BT Gold, Fa.mlin 


Homelink, and some 








Fully BTAoproved. 




SImpl/clipthacoupi 




cheque [payable lo ^ 


idemHousello. 


MODEM HOUSE 








Exeter, 




Devon eX4 9EA 




Tel:(D39Z) 69295 






SPECIAL, SPECIAL OFFER 

d gel e FREE quarter's subscr_i£iiori _lo Micronel Bt 



POOLS PREDICTION 



RACING PREDICTION 



POOLS 




COMMODORE 64 
VIC 20 ( 
SPECTRUM 48K 
DRAGON 32/64 
TANDY COLOUR 32K 



creating your own graphics on 
The Trojan Light Pen will 
freehand pictures, save and load pictures with full e^se 
fadlity. 

" is screen in any of 4 colours tor ihe Dragon/ 
lurs (or Ihe Spedrum and Vic 20, and 16 
le Commodore 64. 



Tandy, 8 cc 



For 



^E(o 



im 



Micro Computer Software & Accessories 

Send ctieque/P.O. to 

TROJAN PRODUCTS 

5. Derlwyn, DunuanI, Swansea SA2 7PF 

Tel: [0792)205491 

TRADE ENQUIRIES WELCOMED 



SPECTRUM MUSICn 



Micro Music 



l™"i'5on'i"M"d, '-"mmSu This month 

fSSiS'h'.™?'... we look at a Midi interface 
""."SS'nr'SS" and an alternative 
,«».,...„,.„. a™, oti, system for Casio and 

l'ls?;?cr™ldi Yamaha owners. 

interface combined with a well laid out listening to the other two tracks 



IIS page, recorder x 



■I data recording 



similar result B 


more usef u 1 w ith f a Bt acces 
















on the Technology Base 






























all in real lime .1 


Micro Musician 



II. Clock Stan/Sti 

Two Midi Outs, T\ 

] LEDs indicate df 




The PERFORMER is an 
;Fting program aimed at the 

ilso has much to oiler the 
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TRPiCK 
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3 


" 
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7 


^ 


PLRY 


















CHANNEL 


1 


1 


1 


1 


1 


1 


1 


1 


PITCH 


e 


a 


a 


e 


a 


e 


e 





MODE 


p 


p 


p 


p 


p 


p 


p 


P 


CONTROU 


f 


p 


F 


F 


F 




F 


F 


BRR 1 


STfiRT 1 |tIHE 5IG A/-* | 


MET Y |tMP 99 | CLK I j COUNT 8 | 





Micro Musica 3i 
Shillon, Covent y 
0203 616760 p 



SHARP'S INVADES ENGLAND! 



WAR in the EAST £9 95 

The simplest o( ttie four bul our best seller. As 
commander of Ihe German forces you must 
launch a surprise invasion of Russia, captute 
ana hold Moscow before the wealher and the 
Red Army overwheims you. Effects of terrain, 
weather and fuej supply. Eleven types of divisions 
and brigades, IVi fir. playing time. Also for 
16K-ZX81. 

FALL Of the THIRD REICH £9.95 

As the German piayer your devastated army must 
hold off the Aiiies and Russians on two different 
fronts, and hold Berlin as long as possible. Ef- 
fects of rivers, forts, and mountains. Muitiple 
attacks are used on both sides. A real nightmare 
(or the player. 1 hour piaying time. 



ARDENNES 



£9.95 



BRITAIN INVADED! £995 

The most advanced of the four games. The play- 
er must defend England in this hypothetical in- 
vasion during WW II. Effects of rail lines, weath- 
er, terrain & ports. Scrolling map, multiple at- 
tacks. Every German invasion is totally different 
All this, and more makes Ifiis game a must! IVi 
hr playing time. 



pened. The 
not arcade o 



with s 



Spectrum 4f 
No postage 
patched 



ling required All orders d 



lavuuii. Thousands sold in U.S.fl 
Order by checl(/P.O,/Visa. 



Rt. 10 Box 453 

iechanicsville, VA 33111 

U.S.A. 

Tel: (8041 730-9697 



MASTERFILE 

HOME & BUSINESS FILING SYSTEM 

The most versatile database tor the 48K Spectrum. 

• Up to 36 User-Detined screen/print formats per file, ond each 
can display different seiection of fields, in different sequence. 

• Higti efficiency data pacl<lng, no wasted tilespace. 

• Super fast, multi-level file seatcti, record selection copobiilty. 

• Up to 51 columns, and 22 lines per record con be displayed. 

• From 1 to 22 records of a time con be shown on screen. 

• Up to 126 characters per field. 36 fields per record, 

• Compatible witti Tasman, Euroeiectronics and Kempston 
printer interfaces, and adaptable for most disc systems. 

"... the t)e5tdott*)ase lor the spectrum Is now even better." Sinclair User, Jan 'as. 

Design your own print layout with MF-PRINT. 

FoiMastardle version 09, increases the number or columns to 136 + . and has numeric 

• Mosterfile version 09 E14.95 ihB[xog.a-f=D,sspr,i 

• MF-Prinf E6.95 EjiiJ^^H^F'"'" 

• Maslertile with MF-Print £19.95 o',™1t**^X°" 

• Enhoneed version available for Anutrad at £24.95 




Campbell Systems, 



Campbell Systems (Dept. ZX ) 

57 Trap's Hill, Loughton, Essex 

Pf^ lGIO ITD. England. Tel 01 508 5058 



:c5 



<16K SPECTRUM ORCADH 



OK Buster, move them blocks! 

Adam Bull wrote this challenging game 

based on the arcade hit of Hessle. 




ill I 
IS 

■ 



Qll, ?^raS»"M''biJ£",!d"™'S' ", 
I plodecj bombs (which look like cc 

'■'lite r.-.Sniri-r.U'lsi; • 



asaJ Ira points can tie gained by mou- 

~. ing onto tlie yellow flag. Aftei a 

■IhR bo^b^bE^H'''i''th? i^k^Ql 

^S blocks. To help ycj get pasi this 

— ! drfficjity, the ROW of biocks 




row □! pink blocks whicli can. uiously (orm words are probab 

>t be shifted. The number of user defined graphic charactB 

Id thB time in which you must They appear in lines: 

)ncise set ot insttjctions is 60.110,160,200,1010. 

uen In the game. You start 1040, 4030. 4040, 463[ 

ith three iii/es. A high score is 6050 

ipt during the game. The 

raen is wrap-around, so if you Important sections of the garr 



variables 








The main varJab 


^slfedlfi 


ggam« 




l£ 


crr^fnate 




avesthelas 


bl',b2 

men 

mil 


coordinate 
coordinate 


s of flag. 

SQ( currently acti^at 

e piey area - blocks 


arU bombs 


.E 


^£ 


tii current bomb deto 
lytorlNKEVSE.etc 


"bTe'pink 



'■■MgiiijnitailMl 

iiSi§B BBBBlliBB 
SgBBBB }eCBBBB 

BgBBBBB BBBBBBB 
BBBBBBB BBBBBBB 
BBBBBBB BBBBB3eCB 
BllBBBBB :KBBBBBB 



■16K SPECTRUM ARCAD^ 



n : R safe bLocK 

^ n flag 

W •■ fln unactivated bom 



Your man 



LET t=-l: LET bl=l: LET b2=t 
16C IF ni»0,bi = -M" OR t-0 THEN 
GO TO ll?]0fl 
ly^ IF boJlft3t3 THEM GO TO 300 

la.ot PRIMT ST H,6[ INK ■'Isc 
17!? IF t>0 THEN LET t = t-lr PRI 
tIT ST bl,h2| FLASH 1) INK ^1 PAP 
ER 21-it*"|AT tH l,b2( "^S- !r-.T tH 
'INT !t.'2)=t.'2) ,b21 t; BEEP .dl.t 
< i.0: GO TO 30P 

239 LET >'m[boJ: LET ?=IMT ( RND 
)!15>«241; IF m»(y,i)-"tf" THEII L 
ET t-50-l*1! LET bl=/: LET b2-2: 
LET mSt/.l TO zt!;='BS": LET m5 
(y+i.z TO i-HJ^'BC" 



^GRAPHICS mode. 



40 IF INKEY*--" THEN GO TO 10 
30 IF INKEY«-"i" THEN GO SUE 

iS RANDOMIZE : LET sc=0; LET 1 
-l: LET i*=-EEe ■ 

""0 LET a=19: LET b = 15: LET 33 = 
3! LET tb-h "/!■ 

83 LET -f-lHIMT (RNCI^l?) it2V2 
AflD n2! ! 00 SUB 4000 

93 LET fl->; LET f2=z: LET t=- 

i: LET to-i: LET bi=t: let t2=t 

1?0 REM f MAIM GAME « 



f n: 



mt at ^ 1 I 
f2|-CS-i.' 



•a OR fZ'.lb) THEN GO TO 1000 
130 LET aa=a: LET bh=b 
140 IF 3-<l AND b-<2 THEN BEEP 
.02,20: BEEP .02,25: BEEP .02,3 

!-. GO SUB 4500; LET fl-y: LET tS 

■-i: LET sc'sctaa 

150 IF a=bl AMD b=b2 THEM LET 
;D'tio«i: BEEP .03,30: BEEP .03,2 
i: BEEP .03,20: LET sc = 3ctHil5: 



;□ TO 100 

£00 IF x«-'2" THEN GO TO ■'00 
410 FOR x"? TO l: LET In«la*x)=r 

i?at>i,3 TO I *iii*(a+).) : NEXT x 
i20 IF 3=^1 THEN LET f2=r2-3 
630 IF a=tl THEN LET b2=b2-2 
■,40 GO TO 800 
7.00 FOR x-« TO 1: LET m«(atx)-i 

Ua4K,29 TO )4iii«(3<x>: flEXT k 
r-lB IF a=fl THEN LET (2 = f3»3 
720 IF a-bl THEN LET bZ=b2t2 
890 FOR K-3 TO 1; PRINT AT atx. 



f2=+2+ 



1 AND f 2= -I 1 - '1 



Z-311 



S29 LET b2='b2t<30 AMD b2--l 
ANr b2=31) 

900 GO TO 100 
1000 REM * LOSE A LIFE * 
1010 FOR j< = 7 TO STEP -.2: 
T AT B,bl INK xl'ttJ'IAT at-l. 



NEX- 



x; BEEP .01,x+3: MEXT i 
.ET l«=l«?2 TO ) : IF !•' 
GO TO 2]000 



GO TO 1040 



16K SPECTRUM ARCADEJ 



1333 IF t'9 THEN LET bD=boH: l- 
ET t=-l: LET bl-t: LET b2=t 
iSAB SO SUB 1963; GO TO 170 
2I3"01? REM fl GAME OVER # 
2313 PRINT ST 7,ai PAPER 11 FLAS 
H lI-<<';<<< GAME OVER > 



2020 IF sOhi THEN LET hl=Ec: G 

O, SUB 1370 

2030 FDR x=l TO 53: BEEP . 301 , x 

2313 IF INKEY«-"y" THEM GO TO S 

3 

2353 IF IMKEY»--n- THEN STOP 

2363 me>:t x: go to 2333 
3333 rem * next level » 

3310 LET l-l*(l<9): LET x«-"SUPE 
R BONUS "--= SUPER BONUS --= " 
3020 FOR x-1 TO 53; PRINT AT 21, 
31 INK 6t FLASH DxC: BEEP .31,x 
: LET xB-x»12 TO )+K* 
3030 LET x»-x«< TO 321: NEXT x 
Se-IP LET EC-SC + 35JH! GO TO 70 
1933 REM rr SET UP SCREEN » 




1353 LET mix)"])': NEXT X 
1363 FOR x=l TO 23: PRINT AT x,l 
I INK 3-(2 AND (x-d DR x = dtl)>!'ii 
•(x): NEXT X 

1073 PRINT AT 0,3| BRIGHT 31 INK 
7| "SCORE: 'IGCITAB 1 1 1 ■HIGH: " I h i 
ITAB 21IHITAB 251 'LEVEL: " 1 1 
1530 REM « RANDOM POSITION * 
1513 LET >— INT (RNI)*13) *2t 1 
1523 LET z-INT lRND*ia» *2tl 
1530 IF mSty.il^-a" OR >— 19 AND 
1-15 THEN GO TO 1510 
1313 RETURN 

3333 REM * U.D.G. DATA » 
3910 FDR x-3 TO 127: READ y. POK 
E USR -a'*x,y: NEXT x: RETURN 
3323 DATA 210,211,212, 212, 212, 21 
2,212,212,253,255,235,255,61,32 



5010 DATA 127,60,63,21,218,: 
16,216,316, 127, 112,61,0,0,0, 
3353 DATA 216,210,21,21,21,: 



,3,96,231,255,63,57,57,63,30 
5063 DATA 12,206,251,219,36,36,: 
16,213,33, 13.23,63,217,227,96,0 
5070 DATA 210,221,112,1 
2,12,0,7,7,63, 15,31,61, 
50B0 DATA 192,213,221,213, 
,21B, 123,92,79,39, 12,8 
3093 DATA 186,116,228,200, 
28,0,60,255,90, 126, 165,21, 



1 CLS ; 



■BLOCK BUSTER" 



i are gi 



THEN GO TO 60 



6070 RETURN 




AUGUST/SEFTEMBEB li 



ZX SPECTRUM 

PRINTER INTERFACE 



3*iblt fwiha Spednj^ Writi □ choicfl nf hcjlh ^ -t ^ 

nlroi»QnraJIO!3;inl(ieoneirmr(Dtorf~.ll I e"**"; a1 1 

l^moB-(SINCLAIBUSEI!MAGflZINEl Z t.»« W," I 

aCTiUo" (COMPUTING TODAv" '^ ^ 

..^.,„ .J. ■' an ih-ng-gLprrB III" gX COMPUTING) 














■4HK 




























ommontfe will work. COPY 
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FULL COLOUR 
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. _ _TRADE SALES:Jp6842292448 

AVAILABLE FROM TRANSFORM LID. 
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ENHAM 


KENT. B 


3 3EZT 


L.01-65a 6350 . 


1 *dd.P<. 1 




'Th..orde„ifo,: 
|ZXlpnnlll(dlE3J.95 
,RS!32CqbleolE9.?5 
lTMwDrd?olEI3.90 
1 Cheques/PO ROyobie 
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Cenlr 
J Col 
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eolCT.95 1 

□ IE500 
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S 01-658 6350 S 



MAfL ORDER 
ADVERTISING 



CONNECTORS & CABLES 

FOR THE OL AND 

SPECTRUM 

56 — Way Extender cables. Sy^" long. 

a) For one peripheral E7.T5ea. 

b) For two peripherals £12.5088. 

c) For three peripherals C15.SDea. 

INTERFACE T RS232 PRINTER CABLES 

INTERACE •!■ MICRODRIVE CABLES 



QL RS232 PRINTER CABLES 

Ires long ( 

QL COMPOSITE MONITOR CABLES 














H?r 


»• 


F^ 


John ure decided to find a practical 




ioh- 


l^z-z 


answer to this oft heard question. 




li-z-: 





Bo= 


Birmingham will never be the same. 








Printing 


. |l 






ii-z-: 




Z"Z- 


Perspiration 


package, comprising a daisy- 




Eg: 


Q 


Pz=z 


Having owned a Spectrum for 


-d. _ k 


i;^ a suitable interface (ZX 
LPrint III from Euroelectronics 










Perhaps 1 was intljenced bv all 




(Tasword from Tasman Sof 




bS 


V 


i>z= 


inose friends and ralaiives who, 
on hearing tttal 1 owned a com- 
puler. would insisl on asking Iha 

but whal does it do?" 

As all you rridnight hackers 




ware!- 1 realised, of course, iN 
much more flexible. But ( kne' 




!===: 


^H 


Z=ZH 


becomes a rather tedious quBS- 




bank account was being drains 
ss quick as a Welsh reservoir in 




Hz=E- 




z-z- 






'°S't.'piu.w.,....n™,.. 




M 


in 


^£:-z 


your incredible dale file pro- " ', " v " ," ----- — -- ■-- 

gram, or of the fantastic com- weeks had passed when th 

mel with Blank stares and, after ''^'fV- 1 '"o^'' dwell on the ma with one of the biggest parco 
B few seconds with the in- and ools of actually fitting the I've eyer seen. The printer (m 
Li«ble£|o£e£^'^^^^^ ^'^'Mive't'^n^utes wr.n '"Thene.t.taaewastogaff 
















flj 
























Qiuesvouadistinctadvaniaoeln became 60 minutes of blood, necled. Following the irstfji 






^^ 




fhishrb tecTwordpf ou^™m '^"-«?} ^"^ '««'=■ ^^"=1^ °' '^V tions, 1 managed to do th'a 




I-Z-: 




z~z^ 


a little thin when she soots you ™'"^ ' eventually got the system under 1 minutes. This belt 
trying to beat your high score in b™Pa'lv connected and then somelhing of a record for rt» 




















m^aSrThe's^pec^rumwasg'oing ™ i^^' '™e ■,'"'>'les. My only wrong and spent the ne»l ; 










to Be made to earn a living. The excuse can he, that confronted minutes making sure 1 had co 










cynics had to be shown that a ""'" ^" if^l'uction leafleL and a nected everything up proper 




















in the modem household. Now "?™*0"iKd mlo a gibBeiing go wrong? 




















wart^o'finda'n^a''ct'ualuse'f''or''a 'WeicamEioZXC. We-reallgib- enough -^Th"tnlB'rfa"2e insWi 




















pvery second of mv scare time printer codes from those si 
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tor the last 1 2 monthsl A PfOPCr Printer plied withjhe software. Not, 

Get A Keyboard ^;;:^^^?rj;z^r^^ l^ifSSSSJI 

Even the most ardent Sinclair ca^e' i!l 'l'he'"woMd"'A''-''e'a^ muc°h''tHal'and"""'^"''' "' 
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that Uncle Clive appears to much more pieasuraBle that 1 tyis truly amarrng - eueryOit 










know nothing aBout keyBoards, was steadily falling into my old good as the electric typewrit 




















for a "working" Spectrum imposed guest. When news blem is 10 find a solution tn 










would heve to be a professional came of Sinclair's decision to Taswoid program crashing 










keyboard. After studying the slop manLifaciurmg the ZX no apparent reason. Is it 




















ed on the Fuller FDS. Fuller ap- eanh with a crash (pun intend- ■'wobbly" interface? 1 haves 






























that their Mail Order Dena rim ent printer. waiting for a reply. All 1 tn 






























to expect from Sinclair lerface for the Spectrum. So, much pleased with my "nei 
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Research, a cheque was duly not only would 1 haye to decide Spectrum, 1 proudly displaye 
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All firms in the computer would also have to find a nice, dear. Don't you tHir*B 










business would have us believe suitable interface to drive the new typewriter would titB 










that 28 days really means three thing. A firm called Data Plus been better?" You can rvM 




"^^■^ -^ li^:;^ 


monlhs but, surprise surprise, the came to the rescue. For E300 1 convince seme people i ^ 
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POWERFUL AND INEXPENSIVE BUSINESS SOFTWARE 
FOR ZXS1. T/S1000 and T/S1500 COMPUTERS 
ZX-TEXT ZX-CALC ZX-CALENDAH 







A.F.R. SOFTWARE - 1605 Pennsylvanffl Avenue, No. 204 - Miami Beach, Florida 33139 

DE ALER IMQUtRIES WELCOME (305) 531-6464 FLORIOA RESIDENTS INCLUDE -5% Sale Ti, 
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voyage of Peril 

Ooh Arr me hearties, there'll be much 

work for Spectrum owners who will be 

envious of this ZX81 graphic adventure 

game from Norman Brooks! 
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letullof danger bjtvou, a 
iui¥loyoi.rcoijntn'lD''ei 
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H 




boTam 


".Tt'lSarlcornt"; 
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°rv:'M"t!™ 
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aphic A) You hav 
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Major variables 




G 
HG 


Gold points 
Hi-ScoregoldpoiniB 




1 


Crew Slrength 
Heallh Doinis (Ha.m 
Storm damage 
Preuious heatlh pnin 


= 1O0-HI 


sa" 


M^iiimum saTaroa h 


Qislable by available 


c 

Q(26t 
T 


CHRS CODES 01 trea 


su,B point. 


X2;y2 

LT,K1 
05115,25) 

P4,QS,RS,SS 


Distance ship mav Ir 
Flag lo Fe-displav sen 
Coordinsies of ship p 

Coordinates of ship a 

ConuersiDr.ofX1,V1 

Mapa.rav 

TypeoflradBthoBen 


ages 



HE ET F NT iRM 

He F F + Il^r 



1=4 ET T 

16B r F THE OT 

C E FSj-i is 



1S0 PRINT Tfl8 1 
L0CKU15E FRGH ii'^ 

190 INPUT C 

£00 IF Ct0 OR C 
90 

SIS PRINT RT 3 ■ 



■r359 TMEN GO' 



■■12 THEN PRINT AT 5 i . 
■BfiTTEN DDUN rtHTCHES. 



= 4-13 LE~ 

=58 L,_~ -- ^ 

see pRi T THE 



-hNE UD 4-5 



1+: LET ri 
14-90 FE P 
160=^ -^ 



. HNE fl "^0 



164=^ B e000 

1650 PRINT HT = : 

PERoLflCE L T 

16b0 PRINT TAB , 



330 






3as 




^ 


3Qfl 




5 


sg'' 


E 


5 


4.0 


PR 


DS 


4 


F 




4 e 


IF P P i 




GO 


=500 




^430^IF DE Di 


Q-^ HEN 


440 


9 ^ 


HEN 


50 






45 


F i 


HE 


450 


IF 0S(L,KJ =■■* 


THEN GOTO S7 


50 






470 


IF DStL.Kl ="1 


THEN GOTO 30 


00 






4B0 


IF DSlL.Ki ="B 


THEN GOTO 35 


0S 








IF D*CL,Ki ='-m 


THEN GOTO 57 


50 






500 


IF INT (RND+250+1) =5 THEN G 


05UB 


3E50 






LET VI;'. 




5£0 


LET" 7 1 = 1 




530 






540 


let' -2=- 




55C 


LET -,-■£=¥ 




500 


GOTO 4500 




1010 


FOR R=l TO 50 




10S0 


NEXT P 




1025 


GOSUe 6000 






PRINT fiT 2,1^ 




DRIFT HELPLESS" 




1040 

EU" 
1050 


PRINT TAB 11: 


IJHILE VOLIP CR 


PRINT TAB il, 


EfiT ".ro-.^i 


1050 


GOTO 4-500 




1505 


C-05LIE 6000 




1^10 


PRINT_hT_2^1, 


^^^HEB 'I'OU 




- """ ^e'"ii; 


CLOSE TO THE 




_-^ il; 


EfiT ■■JCSJSS 



FURTHER FL«T 


1B?0 


PRINT TAB 10 EARTH 






1B74 




















170S 








1715 




: 720 


GO'-O 3930 


: 725 


LE" W-N-1 


7SS 


LE-- Y2-yi 










745 








755 


LE" X2-X1 
























LET V2=Yl+28 



178S LET V1=Y2 
1795 GOTO 3930 
E010 G05UB 6000 
2020 LET G=G+10*CODE 

2030 PRINT AT 2,1 

EXPLORE ASHORE." 
2040 PRINT T«B 11 
flSH OF" 

2050 PRINT TfiB 11 
i ; '■ GOLD PIECES. " 
2050 LET QICODE DSiL,l 
2070 LET D*(L,Ki =CHRS 
3240 GOTO 4400 
2250 GOSUB 5000 
22 B2 LET HL=H 
2255 LET H = INT tH«(l-i 
2270 PRINT AT P.I; "SB 
S 

2280 PRINT TAB 11; OS 
2290 PRINT TfiB ll;HL-i 
£310 GOTO 4580 
2510 GOSue 6808 
2512 LET HL=H 
£515 LET H = INT iH* (1-i 
2520 PRINT AT 2,1;"^ 
* 
2530 PRINT TAB 11; OS 



"HERE LIES ( 
a0*CDDE D* U 



25i^ PRINT TRE ll^HL-! 
2560 GOTO 4500 
2758 GO SUB 68SS 



2730 PRINT TflO II, "SHTP RGROUI 

3790 PRINT TrtS ll,"EflT ",05,5' 

2800 GOTO 4508 

3010 G0SU8 5000 

301S LET HL=H 

3015 LET H^INT ■. H* ( l-RMC'/ai i -^ 

3020 PRIMT RT ^,1, "U^^^S 





OS 


3040 PRINT ThB 11 








3260 IPnsuB saeg. 
















3276 LET C51-CS 




3273 LET CS-INT ( 




3260 PRINT TAB 11 








3286 LET Hl-INT < 








IP DfltlRGE," 














3490 RETURN 
















3528 PRINT RT ii,l 








3538 PRINT TAB 1; 

























OTO 4803 
3T0 3938 
il- RND/2j ' -S 



1-C5; " CREUM 
OU JUST ESCfl 



4045 LET TS =Ii.lKEY * 

4843 GOSUS 6830 

4858 IF TJ="F" THEN GOTO 4180 

4055 IF T* = '-G" THEN GOTO 4.208 

4850 IF TS = "R'' THEN GOTO 4308 

4865 It- TS = "S" THEN GOTO 4430 

4070 GOTO 4000 

40?5 PRINT AT 3,6; ■'NOT ENOUGH GO 

LD IN HAND, " 

48S0 PRINT HT 18,8, "I " j RT 18 

, 1- IG>9999S ;G 

4085 PRINT HT 4,5; "PUSH RNV KEV 

TO CONTINUE " 

4093 PRUSE 4E4 

4395 GOTO 4010 

4100 PRINT AT 2,1, "^^B 1 RRTIQN 

= 1 GOLD PIECE. " 

4110 PRINT TAB 6.''HOU MANY PATIO 
NS1"' 

4IE8 INPUT R 

4130 IF (G-R) <8 THEN SOTO 4075 

4135 IF F+R>25B0 THEN PRINT AT 4 
,6; "SHIP HOLD TOO SMALL." 

4136 IF F+R)2508 THEN GOTO 4120 
4148 LET F=F+R 

4145 PRIMT AT 12,1;" " ; AT 12, 

l;F 



RATIONS I 



4150 LET G=G-P 
4150 PRINT RT 3 
UGHT. " 

4170 GOTO 4333 

4283 PRINT RT g .1, ■ g^M) 1 MAN = 

13 GOLD PIECEB, " 

4213 PRINT TAB 5; ■'HOU MANY CREiJCl 

EN?" 

4220 INPUT R 

42£5 IF CS+RM08 THEN PRINT RT 4 

.6;"N0T ENOUGH ROOM ON BOARD." 

4226 IF CS+R;100 THEN GOTO 4^20 

4230 IF (G-18*PI <0 THEN GOTO 487 

5 

4S40 LET C6=C5+R 

4245 PRINT AT 14.1." ■' ; RT li - 

l; CS 

4250 LET G=G-18*R 

4250 PRINT AT 3 , 6 , P ; " CREWMEN Tfi 

KEN ON." 

4270 GOTO 4030 

™T PRINT AT 5, 



SOL 



HEN GOTO 104 
EN GOTO 4042 



D PIECE5 PER PT. ' 

4310 PRINT TAB 6; "MEND MOW MANY" 

HARM PT5-?" 

4320 INPUT P 

432S IF !H+Ri jl00 THEN GOTO 4320 

4330 IF !G-S8*R) ;8 THEN GOTO 487 



. .._ _. , HARM PT5, 

MENDEt> . 

4370 SOTO 4030 

44-10 PRINT RT 5+L , 5+K, DS (L , Kj 

4428 LET X2=X1 

4425 LET X=X1 

4433 LET Vg=Yl 

4435 LET Y=Y1 

4448 PLOT X2+12,y2+2 

4450 LET Z=a 

4518 FOR P=8 TO 16 STEP 2 

4520 PRINT AT R,0;''| 

4538 NEXT R 

4548 PRINT AT 3,l;T:flT 10,1-fG-.' 

399J;G;AT 12jl;F;AT 14.1:CS;flT 

6,1; 180-H 

4558 IF Z=l THEN RETURN 

4768 IF h<5 THEN GOTO 5758 

4770 IF 05fl8 AND DStL.KJ;" " Tl 



■= hINT fli £ 1 
IF=I lEWT CREU 
■^^ l-PTNT TBS il 




1 PPIN"^ hT P 
I NE'T P 



-Pf,^ 


LET 
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US 


1 




LET 


OS 


1* 


-' » 


LET 
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--AcO 


0-= 
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en 


7il50 


RETJRN 





"'Esei F=-^i.'P , 


























ci = 


«• 




■^'^^"' 


5) = 




JV 
















7733 LET D$ 


5.' = 






77S5 LET DS 


5J = 


JV -■ / 


7730 LET D4 


7i = 


V 


w 


7795 LET DS 


Pi - 




S"+CHRI L 










?saa LET c$ 
















7305 LET C« 


1V 






+CHRS Qll^ 








7S1B LET DS 


11 














7S15 LET Ct 




































































79S0 PETLPfJ 








3010 LET CJ 


1 














3015 LET rj 














3020 LET rS 
















9025 LET CS 
















3030 LET CS 
















3035 LET CS 
















3040 LET DS 
















304-S LET r« 










■^^wi GQSUB URL 
3243 PETURN 
3S60 LET Diil) = 

8255 LET Dtl£J = 

8270 LET D$ 13) = 

8275 LET DJ/*) = 

32S8 LET PS (51 = 

32S5 LET Dt (6) =■ 



3305 LET CS 
S"+CHPI Q i2i 

3^LET, DS 



8320 L 



-ET DS(13J = 
■■ tCHR* iSli 
8325 LET D»il4.i = 
it mBf -t-CHPi Q 



8515 LET DJi£) =- 

8520 LET Dt f3) =" 

85S5 LET DS Ui =" 
=="+CHftS S(-25J *■': 
esse LET D*(5i =■' 



8535 LET DS(6J=" ^yV !S 



OS40 LET~I>tt 

V M = = = = = 

.8545 LET DJ fS} ="g 

;«S17 LET Dti3) =■■ 

S55B LET D$!iei) =" 

?Sg LET Di(ll) ="^ 
.0125)+" ^ 

SB6a LET DS ilSi ="^ 

8565 LET OS ilZi =-^ 

8570 LET DStlii =" 

8575 LET D* ilSi :'^ 




E3 



S\0 PPIN"^ r^T <- ^ 

; llBflei ht 11 1 

3=1=10 PRINT hT 1 
I 100 I AT IS : 

lei I 

3 ■^O PRINT hT l"" t 
■0 I S I AT 1^ 1 

.0 I I FIT 51 L 

39^3 LQ'iLIS 7a0a+S50*N 
39SS PRINT AT tl =9 lHR» 
SaO0 IF T B THEN bOTD ^^0 
3=192 PLOT X + ic += 
3094. IT 110 
9=^1« PPI -^ wF 
S E r eP: t 

95c0 PPINT 
9S O PPI T 



TOM LEFTH 
954-0 PR I 
O OIL I 
lELE Tn 

E ^LP^E AN HI 

E JINC JhlLENflW. 

ZZFIRDa 

9550 PfilNT 

BV PIPhTE P r 

95b0 PRUT Eh H 

pi C hHTI c= tfl 
BL F C =eHIP 

KE L c H= 

LD PERM 

9S FP I 

GOLC RT THE TPEfl R 
Et> H TO S 
95'10 PRINT -^hB 10 
974.0 RCT-LR 
97b0 LET 101 

9770 L^r •! 1 
9730 DIM D$ 1"^ c^i 
9300 LET H n 
9310 LET L 100t. 
98=0 LET F ==5^1.. 
98-0 LET Al-0 
984.0 LET V1=0 
9BS0 LET X=l 
936e LET V=l 
9570 LET T=0 
9330 LET L=15 
9890 LET K=l 
9900 DIM 0(2Si 
991iB FOR R = 1 to 23 



99E0 LET - .. 

9930 NE)rr P 

994.0 LET P% = 

9950 LET St= 

9960 LET R*= 

9970 LET 5*= 

9930 LET Z=0 

9990 RETURN 



=16S+( 

'BSD NflUISRTION. '■ 
'SHIP DHMPGE OF" 

' kTS SUSTAINED, ' 
' FOOO RATIONS" 



ganerated. The odds, thatelot" 
are slighlly in lavoiir of V 



Building An 
Adventure Brain 

__ . I a*.^!—!* tcacted. After each round < 

3: The final stages by Brian J. Robb. ss;r|r£S 
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lyl, sho 
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. to Big 


ilyt 


he fact that 


how 


°hat °he 


doD 


IB locked. 




t doors 


Iha 


door (those 
he ignored. 



value defined at the beginning of is why the pr 
the program. For B>ample 'LET eluded wiin 
PLP0W-4S', where PLPOW beenfairlYBC 




routine for both the ZX81 i 
SDectrum. Also included » 
line, BSBuminQ the key to be 



jrtovourown needs. The ture 



game w I i 
helped bo h 



X COMPiniNG AUGUST/SEFTEMBEBIB 



■night ac- 




*,50, 'gianf ,10fl 



1000 REN ARTICLE 3 




IBia REM FIGURE 1 DOORS 




IO?0 FOR n-i TO 10 




1030 IF din-l rHEM PRIM 


"an D 


pen door ■ 




1040 ir dMlOl THEM PRI 








I83(J IF o(7l'-I AND d(ll- 


THEN 






lOfiB IF o(71 = -l AND 0(11- 


THEN 






1B7B NEXT n 




n«»™™»J ^,B U» sa™ farfioH. ^XB f snrf S™c, 





1200 


REN FIOURE 3 COMBAT 


1210 


PRINT ii.*(x)rp(*n- :: -i-yo 


u-IP 


POH 


12Z0 




■|z» 




1230 


IF i«="y* THEN GO TO « 


1233 


REN K-maIn pro^ 


1240 


LET Iurl<'[RNI}»10l 41 


123B 


IF lucli<'5 THEN LET q=l 


1260 


IF luclO-fi THEN LET q'2 


1270 


IF q-2 THEN GO TO 1300 


1280 


LET p-p-lucl. 


1290 




1300 


LET plpnH^plpoH-luch 


1310 


BO TO 1210 



Two From Cheetah 







Cheetah's claims that theMeg 
whBn I plugged the joystick i 



WSlick inierfacEs, and jjsi ro ha„e baan a littl 
add to (heir rumberi Cheetah made, I thinlc, I: 

compatible joystick of their irum's reatport 



e robustly that ChBeli 



socket. Then, once it has been Mega-Sojnd £10.95 
tjned properly, the Mega- Cheetah Marketing Ltd 
Sound boosts the Spectrum's St, London Ed , 



Chart Topper 

Mike Hyams returns with this record 

breaking strategy game. — 2X81 and 

Spectrum conversion tips are included. 



Add 30000 I 





-J SUB QOOO 
95 FOR N=a TO S 
9S LET S(r4l =o 
97 NEX-r N 
100 <SO SUB 3500 
105 Pftlf-yT "MOCJOnv 
; ■ ■ ; VEf:iR 
107 GO TO 235 
no PRINT "MOr-ETi' = 
120 IF CflSHSjO THEH- 



PfTINT CR5M3 



130 LET CflSH=Cl=15H2 

WO IF CflSH3>0 TMET-i GO 5UB ISO 
141 IF CI=15H3=0 RNO COSHS>0 THEM 
PRINT CRSM2J 



3T5 IR S(R 

CSTS LET S tl 

390 GO TO I 

d-OO C1_S 

aOl PRXMT 

•3.03 PRINT 



Oil TriEfJ GO . TO 3e 
THEN GO TO 3SO 



J^SH-: I'SO THEN 
Xe P-RJf.fT Ch5H; 

iHl 

If? J=1SH2:.0 THEM 

1 D CfiSH£=0 THEM 



S30 PRINT 

23 J PETLWr 

a^S PRI T 

33e .3D SUE 



DO YOU i.JRMT TO RRRR 

HDVERTISING- 

R RECORDING CONT 

R ReCORC- RELERSE 



407 PRirtr 
2C>0- 
aoSB^RINT 



csoo " 

^12 PRINT 
"13 PRINT 

e^ooo - 

■i]-* PRINT 

iJS PRINT 

ilS PRINT 

aiT' PRINT 

a. IS F^TINT 

4.19 PRINT ■ 

4.20 PRINT 
4-21 GO S.LIS 
C-S:^ PRINT ■ 

Hoice- 

■1=3 INPUT f- 



LeRFi,ETs - , , " eso " 

l-IUSIC PRRERS" , , -1 



STREET POSTERS" 



STREET I 



PLEOSE SELECT VOUR ■ 



■^ =— 


q 


5V5 PRINT -THEl OFFER IS RS FOL 


a-ssBiF R = e TME3N G-n to 


3 00 




OIJ5 . . . - 


■125 GO TO fli:10+d-=-o 






STS PRINT 


•3.3i LET CI=lSHl=CR5Ha-SO 




57-? LET P'ER = RND(rRfJS..- JO':>3) 


J.32 GO sue 9U.SO 






S7^ RRir-IT "ROVRLTIES RT " ; PER 


•133 LET FI=lH5 = FVHviS + Rf-lD 


i oc-c-o 


-F>=«-1 


PERCENT - 


5) ^ lOOO 






5Vg PRINT -PER 5RLE.- 


-4.33 GO TG 300 






530 PRINT 


•iai LET CR5H1=CRSM1-S' 


K> 




SSI PRirJT , -OR- 


-112 GO SUB 3450 






sasBPRiNT 

333 LET rLFiT=Rr-£:'CFRN5/aO) +300; 


a43 LET FT=lNS=FONS + RMD 


30000 


-FRN 


5 i --SOO 








14-3 GO TO lOO 






nr ; " per"^ 


d.51 LET CRSHa=C4=lSH3-a 






BSS print -Sir-tGLE flNO E-jFLRT. 


ISS GO SUB 3a.so 






; ■■ PEP Rl_BUr-f 


_a53 LET Fftr^s=F»r>Js+Rr-ac. 


3 'J-C'CO 




5S6 PRINT 








EST LET TIME=RrjC'f31 152 


%53 GO TO 3 00 






SS3 PRINT "PERIOD OF COT^TRRCT 


J-B3 LET Cl=15Hl=C(=)SHI-5L 


O 




5 ■■ ;TIME/5S; -■ YHRR5- 


J.S2 GO SUB 3450 






39,-, PRINT 


163 LET F(=lr-IS=FMr-»5+Rf-jr. 


JC-OOO 




S3i PRINT -OO YOU URF-iT miOVR 


SJ ^200 






V, ■ , , - (FtLRT PRTE. OP ENIIETHE) 


■4-S3 GO TO lOO 








4-7J LET CfiSHS^CFiSi-e-a 








1T2 GO SUB 34-5C' 






Sg3 IF NOT Bt=-R" PND r40T_B4 = 


0-713 LET FRNS=FRr'lS + RrJC.( 


iOOOO 




- nr-D NOT BS = -N- Tt-eN OO TU 59 


5)/aoo 






S31 IF Bt=-N- THET-l LET TIME=0 


ITS GO TO IC^ 






sis IF e*=-N" THEN GO TO lOO 


16 3 LET CASUS = CR5H2- 21 






53S IF B9 = -R' THET'J LET FLRT=0 


182 GO SUB 3150 






5ST IF S* = -F" THET-l LET PER=0 


1S3 LET Fl=lf-(S=Fflr^S + Rf>«:i < 






533 GO TO lOO 


3 5 /SO 






eOOH'3LS 


183 GO TO lOO 








lei LET CnSHS=CRSH2-IO 




132 GO SUS 31 SO 






OjO print ' 


133 LET FRNS=FRNS + RrJDl 


lO'.-'OO- 


Fnrv) 


__^513 PRINT "(S)IM'3LE OR tRlLBU 


31./30 






Ell PRINT 



133 GO TO JOO en PRINT 

500 CLS S3S ir-JFI.rT B* 

SIO PRINT -RECORDING CONTRRCTS •^•iS IF B3.= "S- OR e9---R- Tl-I 

PE'^IEU- TO S20 

SS^ C P RINT ""™™™™=™"™ ™ra:iioM™=i»Bm« ei7 GO TO 535 

■ ^KMM Miif £20 IF iei = -S- Rtf-iD RLBLtI'DO 

530 PRINT CUUL<S) OP ieS-=-5-' Rr-IC- RE03) O 
533BIF TIME=0 TJ-ter-l GO TO 510 tB*=-R- RflD REC:" 13) TMEM GO TO 
Swi;£ PwiNT "VOUIR COTJTRPtCr IJITM " ^2S, ,.=. ^^ .._.„,„ 

;C4 SSa IF Et=-R- THEIW LET B4.= "fiNI 

533 PRINT "STILL HRS -jTIME;" '„i '-gytj",^ „ _ _ __ 

EEKS TO RLIN." ^P^ ^^ e*=-S- THET.! LET e3 = "R S 

531 GO TO 551 NGLE" 

510 IF FRNSllOOO TMEJI GO TO seo ^^^3 PRINT " VOU MUST DO MOPE (^ 

SIS PRINT -NOBODV UJRr iTS TO PUT ORDIN^- , , , , , "BEFORE VDU CiV-l REU 
VOUR GPOUP" =5 ,™igj^._ I 

5ie PRINT e240PRINT 

SIS PRINT "UNC-ER CDNTRRCT BECRU S=S PRINT I 

SE THEV OO- BS6 PRINT - RECO^^MEf JDED MINIMUH 

550 PRINT . . . ■ 

553 PRINT 'T-iOT HOVE R BIG EMOUG 027 PRINT 
H FOLLOWING.- S23 PRINT "SINGLE - 1 SE^alON! 

551 PRINT S23 PRINT 

555 PRINT eOO PRINT -RLBLIT-I - EO SES5I0I 

5SS GO SUB 3S05 

553 GO TO 300 . m 

560 LET R=Rf-IDl6} 631 PRINT "NO MOKE THRN 1 5IN( 

551 GO TO SSO+RT2 ES FROM 3 LP" 

552 LET Ct="E.M.I.- BOS GO TO 551 
Se^GO TO ST-O S33 LET PS= " " 

SIO IF B4="R- 
SS1 LET CS = -VRGIN- S13 FOR R=_ ._ _ 

56S GO TO 5V3 &*2 IF 2:(R)=0 THET-l GO TO SIS 

SSS LET Ct=-C.B.S.- ^"-^ NEKT R 

Se? GO TO S"73 5** ■SO TO SOS 

5Sa LET C* = ''RR1STW" eiS_3:F RLBUMi 3 THEN GO TO 649 

ses GO TO ST3 eicHPRlNT -xto THr-;^ ^rr^GLE pt?c 

5-0 LET C»="EPIC" '^'-^ RLBUM " ; CHR? (2 IE) ; V »; CHR 

573 GO TO SV3 Siaj ; " YyN" 
5TE LET CS="R + M" SIT INPUT PS- 

5"73 PRINT "VOU HRVE REEN OFFERE ^'^^ ^^ P»= " T " HT-IO CULL :• 3 

D R CONTRRCTBV -:C»;" RECORDS." ° ""^ ^^5 
571 PRINT S19 PRINT "NmHE OF f'iE^-f 3. 



652 LET Z(F1)=9P9 

CS4 LET XfR>=5ir.lGLE 

=11 b^""" l-OOP=33^-75+XtPJ j;25 

555 FDR n=LOOP TO UODP+ 3Q 

557 POKE R.COOEfBS-) 

™3 LET B* = TLS-fB9.) 

£53 NEXT n 

oSO PR TNT 
^B61 PRINT CHPtcaia) ;Zt;-CHP«i212 

652 PRIMT 
rSSiggf^^ '""-'- "^ HELJERSED ON 

DSe XF Pf.= -V" TMET'I LET CULL^CLIU 

567 GO TO 55a. 

569 FOR B=l TO S 

570 IF YlR)=0 THETJ GO TO &73 

671 hEXT R 

672 GO TO 695 

673 LET Y(R) =S33 

57d PRIP^T -r-JOME OR HLSUM •^" 
675 LET RLeL«^=RLBLn'1+ J 



WEEK " ; WEE 



■ Z(F1)==I33 THEM 



TO S 

^.^. ^^. H3=CflS 

SS"? GO SUB Q-ISO 

SOa r-IEXT B 

950 NEXT Z 

lOOO GO ^LiB Se^C-O 

J0]0 GO SUB 0500 

1020 PRINT -TUE5C'i=l 

K ; - - i YETRR 

1030 PRINT 

lOdO PRINT "CHRPT DR'r"]; 

lOeO FOP fl=l TO 5 
1053 IF Z(fl) = 

GO TO loes 

IC-ei GO TO 3 I'^O 

loss IF y!Rl=0 OR VIR)=S93 THETM 

GO TO aoev 

ic-ee GO TO 1 130 

1057 NEXT R 

10TCEf=-RINT -TOU DO NOT HRV1 
RECOROS" 
iOeO PFvINT 

3 09O PRINT "ON THE CJ-if^T mT THE 
HOMEIvrr. ' 
J095 GO TO as JO 
1190 PRINT -PRESS N/L- FDR NEU CH 

119J PRINT 



ftfJV 



3) on 

O TO 



IONS" 
SIONS 



CHP*1 



552 LET ES = TL5tB3.) 
533 NEXT R 
eStlflPRINT 

505 PRir-lT "1-10-; ;'ii^.»ir" OF VOUh PEC 
QHCINGS TO BE USED ON THI5 HLBLT 



639 PRINT CJHR*(212) 
593 PRINT 



r-3;cHFv*taaa 



BE REVERSED ON 
WEDF^SDHY . " 

692 LET REC = REC-REC1 

693 LET OULL^O 
594. GO TO SSd. 
69S PRINT -NO MORE THRT'I S 



22J5 IF Z(Z)=0 OP ZiZ 

GO TO isisg 

ISai PRINT -BBC'GRLL'-JI 



S230 GO SUB 9505 
123S PRINT "SINGLE 
124.0 LET 0=Xi:Z)3a5 + 



) 2 00 THEN 
SXNGLE5 C 



124-5 PRIN 



.=D TO D-ng 



-l-JEEKS IN Cj-i" 



ES AND 5 RLBUI-tS I 

ELERSE RT Ti-t^ SOME ' 

697 GO TO 55-a 

700 PRIf-4T -5TRRT TAPE «r 

N/L- 

SIO IF TII-1E=C- TT-jEN '.so TL. jw> 
^O IF PER^O TMET-I GO TC 900 
S30 FOR Z=l TO 5 
SdO IF 2iY.t > ISO OR Z(Z 
30 TO 550 
64.1 LET Cj=ISHl=Cj=)5t11+ f a; 



55S LET CRSHa=C«SH3 + 
PERIS 
S53 GO SOB 94.eO 



CR5ril+FLRT 
'3SO GO SUB 34-&C' 
930air NOT YlZ)=PeQ TMEN GO TO 



1S4.S PRINT 
124-3 PRINT "PRI 
SITiaN" 
1250 INPL'T B* 



l.-L EOR NEW PO 



PRESS 


1253 GO SUB laes 

1254- PRINT "PRESS N/L" 

1S5S INPUT es 






















y THEN 


5259 NEXT Z 




Z(Z) ) J 


IStz-eHLET B»=.r>TP*(OQ.l 





1273 IF 00<300 THEM LET i=l=l 

1276 I(^ R=a4. TVtEN GO TO 329 

12SO LETT BS=TL*1B±> 

1290 LET B=C-CCEtBS-> 

]aQ3 IF OG>< 30 THEN LET 5=11 

laSS IF B=3d- THEN <SO TO lai 

3 300 LET B3=TL*\Ea.l 

1320 LET C = CClDE(eS) 

23SO FOR D=0 TO 7 

1330 LET NLIM=R 

i3a.o GO SUB iS':>o 

1350 LET NUMsB 

135C' GO SLIB 3 500 

1370 LET r4UM=C 



13SO o;o SUB 35O0 

3 3SS PRIMT 

13&0 NE>rr D 

ISOO LET rJLJM=r'njt>lj;S+3534-*-D 
1530 LETT NLIM=PEe:K ir-n_iM.i 
151£Bl_ET DIV=12S 

j520 for e:=3 to s 

1530 XF NUM>OIV-I "Tf-iEf'l '50 TO 155 

i5d-0 PPirjT - - ; 

iSaS '3D TO I570 

1550 PRTNT C-HP*-( ISS) ; 

i^&O LET NUMsNUM-DTV 

iS-O LET DIV=DIV..-e 

15SO f'leXT E 

ISS-J RETURN 

lS'i>:v FOR Z-a TO 5 

it=)iO IF V tir.t =o OR viz''>joo tm^n 
GO TO a goo 

1520 Ct-S 

ie.30 PRINT " BBC Gfll_l_UP RuBUM CMii 

3S35 PRIfJT 

ISaO GO SUE QE'-De^ 

154.3 PRINT "RLeUM : - -; 

l&as LET D=Wf^,l >25+3a^vS 



HTOHEST POSITION = 



ISTS PRINT ■LRST UiEEK 



l-7ao PRINT -PRESS N,-L 

i7-2S INPUT 83- 

1-730 POKE RR.PEEK IflPl 

1T3S IF Y12» (PEEKiRP*- 

RR+1)=0 Tt-fEN POKE Rfl + 

170eB'=0KE R3+2,YfZ.l 

laOO NEXT Z 

1910 FOR Z=l TO 5 



1S<16 LET ZfZ3 

JS47 LET UlZ)=0 

1 Bd-S LET V, (12 J = o 

lSil.9 <JO TO JS"70 



135S IF Ul2,l>0 THEN LET I 
2) litZt / (ZfZ) +UfZ) ) .1 
laoO IF U(Z) il TMEr-J LET 1 

r-io<ZiZ) +ufZ) i *Rf-icvi:5.> i 

13TO NEXT Z 

2 3aO FOR Z=l TO s 

3S3S IF ■|'fZ)=0 THEN CD T( 

aaso IF NOT Ytzi^ggg thet 

1305 

ISSS LET 
l^OO LET ' 

jQOSSJlF YtZ>=l RND RI>K:. V 

N '^o TO aea-o 



333 1 IF 



< 1 THEN LET ' 



i-aSA PRINT 

1925 PRINT 

1323 LET YC^S=-J 

1930 LET VlZ)=0 

193S LET W(Z) =0 

3S37 GO TO 



■MRS STOPPED SELL II 



O THET-J LET ' 



Jyd-O IF y»Z) 

ISil'^IF ViZ) ■; i Tt-fl 
iVOlY(ZJ+VtZJ ! +RND 
1350 r-JEXT Z 

iseo FOR n=a to 4- 

3S55 FOR B=R+3 TO _ 

ISBSHIF Y(R)^0 THEN CO TD JSTiJ 

3Q70 it- y<H)=ViBJ ThET-* -30 TO 



ISV4- IF Z(OJ 
13TS IF ZiRl 

1930 r-EXT B 



TO 1 QSO 



NEXT ( 
' GO TO 2000 
■ ■ -. .-, ^v(R) 



1SS5 LET ' - . .. 

13S5 GO TO ISeO 

IQQ^J LET ZfR)=Z(R> + l 

1331 GO TO l^SO 

2000 GO SUB esoo 
aoio GO s-o ■S5'>:. 

2030 PRINT -.r 

EEK ; ■■ " i YERR 



=RND(FRN3y200J +ERNS 

le^I IF CLILL=0 THEN LET U(Z)=U12 

.1 +REC3.^2 

1S23 IF CULLJO THEN LET U(Z)=U12 

I -CULLxa 

-025 IF Z 

.J GO TO 3! 

3030 LET Z(ZJ =ZiZ,i -U(2J-(TND(ZC2) 



1S<L2. PRINT CHR3. »PEEf:(PJ ) i 

lS4-30r>JEXT n 

134.4 PRINT 

lOaS PRINT "HR5 STOF-F-lD 5E 



20d.O PRINT 
aOBO PRINT 
S-D&O PRINT 

SOV-^-O-ORINT 



SlOO PRINT 
SllO PRINT 
S3 20 PRINT 



;eOOK.INGS- 

'OO YOLI t-*=ejT TO book! ; 

.-il R RECORDING 5TI 

. "H) F* COf'JCERT HHLL 
, "3J R PLe..CH.lB HRU 
, "iH R HOS-IDRV "" 

-5.1 r-JOTHING- 

" OR , . ^ " I 

■PLERSE ENTER ONE OF: 



3ieO IF Rll OR R>e THEN GO TO 21 
70 J 

aiBO IF R = B THEN GO TO 3000 I , 

SSOO GO TO Rx 300*2130 ' 

"2 lO GO SLIB 9500 



leso ir ztzi 
fir.is+4-o-zizi 


<103 


THEN L 


rT FnNS=F 


aSllEGO S-L.IB 
;^'^J5 PRINT 


h'c.i_^aRDir+;; 


STLflT-ro 


.=0. 




B. 








z 


COMPUTING AUG 


ST/SEPTEMBE 


.« 





ZXSO^I 



3216 I 



J INT 



'2 DflVS = CSCO- 



2220 PRIIWT "1 C-PIV = £4-50" 
S221 PRINT 
22aa PRINT 

aaa3 print 

2SSC PRINT "3 DFIVS = eaico" 

322S PRINT 

2=30 GO SLiB 2S33 

2231 GO TO £352 

2233 PRINT "RLERSH EINTER UtHICH 
EEK yOU-,-lJOUUD LIKE TO BOOK.", 
■OR 99 TO Pl=lij=. " 

2234 INPUT B 

2235 IF e=Q3 THEN GO TO 2010 
2235 IF R(B)-.0 THETr'l PRINT ''YOU P 
LREPKjV HPt'-.'E O BOOf-.r" 



OOOO TMEN 



GO TO 21V 



YOU ( 



THE CROUP 



2J-DO ISO SUB 3o05 

a^ei -so TO 20io_ 

RED TO Pl=IV 

a.i30 pRir^iT 



J'S EOR THIS 



THEN GO TO S23<3- 

■PTIOT'I (-AZiULD Y 



2237 IF R(f 
2^aCBPRINT 

I gu"*liRe for week 

2£d6 ir-^UT R 

— 7 if'r*i or r>3 theT'J go to a: 

■15 

2251 nETLWN 

2252 LET PllEl=n _ 

SSS3 IF NOT R= 1 THEM GO TO 2257 

2254 LET CHSH3=CR5Hl-'J-SO 
2S55 GO SLIB S4-50 _ 
3257 IF NOT R = 2 THEN GO T< 
2259 LET CR5HI ^CRSHl -oOO 

2250 GO 5LJB 9d.SO 

2251 IF NOT f^^O- THEN GO TO 2= 
2263 LETT CR5HS=CR3Hii- 1 
a264 LET CRSHl^CRSHl— lOO 

2255 GO SUE S4.SO 
2270 GO TO 2010 
2310 GO SUB 9500 
33£'-i GO SUB llO 
2330 PRINT "COT-IGERT HRLL; 



LET^RtB) 



THEN ' 



eoio 



PJ-QO GO SLIB 9t^C« 

^J.S'^ -^O TO 20 3 

ESIO GO SLJB "■ 

aS^20 PRINT 

S52i PRINT 

2525 PRIf'tT 

2526 PRINT 
2S2-;BIF -~~" 



HOL IDgl^;^ 

COST = £l3-:^o 



I 2251 



000" 

2337 PRINT 

2333 PRINT 



r^iCERT HOLL 



STROrUii 



EOOOC 



2345 GO SUE 2233 

S3S0 IF NOT R=a THEN GO TO 23ec- 

2354 LET CH5H2 = CR5H2-5 

2355 LETT HfB3=R+1- 
S357 GO SLiB ^aSO 
£3^ GO TO E-JllO 

2350 IF NOT R = 2 THETJ GO TO 2370 

2364 LET Cn5M2 = CRSH2-SO 

3365 GO TO 235e 

2373 LET CRSH2=CPtSMH-2SO 

jBSTS GO TO 235!e 

GO SLe 3500 

P ERINT "J^UBy'3LLlB HQLL" 

3 PRINT -=::'^ rassmrr KS-an:.. 

ai22 PRINT -UHICH UTEEK QO YOU Wfl 

NT TO BOOK OR 39 TO PASS . " 

S423 INPLIT B 

a4£4 IF B=99 THEN GO TO 2010 

24E5 IF RIB* >0 THEN GO TO 24-23 

5426 PRINT - i-JEEK - ; B 

2430 IF FRr-)5>200 THEN GO TO 24-50 

2135 LET PR= JC.O-FRr>(S^ J0-RTJC>(30) 

2435 PRINT -T1-fE IIRNRGER (.tRNTS E' 

;■ FCR- , -THE USE OF MIS HRLL 



= .=^.^-.. - 293 OR 'r«5J-12>0 OR 

c;r3H3jO THEN GO TO 25-3'-' 

S52a GG TO &22V 

2=i30 PRINT "(JHICH IJEEK. DO YOU Wf=i 

NT TO booh: , OR 39 TO PRSp . " 

2S40 xr^PUT e _ _ 

255C' IF B=33 Tl-e:N GO " 

2SeO IF R{BI>0 THEN Gl 

2570 LET R(B»=a 

2572 LET CRSHl =CJ^SH1 -^ 

2=74- GO SUB 94-50 

25SO GO 5LIB 9pOS 

2S30 'GO TO 2'r-IO 

S7 30 GO SLIB dOC-C- 

2V30 GO TO 2C'10. 

3000 GO SL.e 9&00 

3010 GO SUB 9500 

3020 PRINT "THLIRSORY 

EK ; ■■ - , YE«R 

&330 PRINT 

3C-40 IF RiLJEEKJiO THEN GO TO 310 

3050BPRINT -YOU HRVE f'iO ORPRNGEM 

ENT-S MRDE' 

3055 PRINT 

30nO PRINT "FOR THIS 

E GROUPS" 

30SS PRINT 

--70 PRINT "FRITH IN YOU HR5 DRO 



" ;UE 



I .iee>-;end . 



'PED. 



GO TO 5000 



3 no 



I C U.IEe^', J .■• 3 THETI GO TO 320 
"REGC'RDING" 



3120 PRINT 
3330 PRINT -TFE 'JSROUP HRVE SPENT 
" ;RnJEEK> , -E«YS ll-l TriS REirORDIN 
G STLfDIO." 

OI4-0 IF RND( tMOPRLE^2J IRIUEEKI 1 > 
93 THEN GO TO 3150 

314-5 PRUvr " UNFORTUTJRTELY NOr-IE O 
■^ THEIR- , -RECORDINGS IS USRBLE . " 



ORDir*3 . 

3155 LET REC = REC + RF-i:>CR(l.(EEK) 

" ".SO GO TO 5000 



a«33 PRINT 
2fi40 INPUT Bt 



CO ' 



! flCCEP'T-? 



3 139 STOP 

3200 IF NOT i 

O 3300 

3210 PRINT -RLO/CLUB HRLL" 



I ( WEEK ) > d.3 TVfETJ GO T 



-^2&5 LET Fl=IN5=(FPlN5/ig(x2-.^ + RND(5 5 = " " REC 
^ _ ~OSO r^f)INT 



5090 PRINT 

o2ao GO SLIB Sd-50 mwttK) ^t^^ c^dtm-t 

8?? Sg"^'" ""™^ «*-'- <»ST e-,-R,u SMI PS^H^J TO s 

3a5':iOGo TO sooo saoo if^ 2f)=i)=o Rr-iC' v"Ii=)a=o thetj i 

Rr^3 XX<101 THEN PK! 

do Ti-er^ PRINT 



1 1_E:T CR5H3=C-R5H1+ iniUEEKi -IE 5135 XP XKil^ 



3Se. 3 

o^ea GO 5LIB 



3aes i_ET mori=ii_e=mo»rle:+io t^JL^/ j.t- X>.=o thet^ pr. 

3i;-'o GO TO 3a<ii5 ■ _, 

3300 11^ NOT R(UeeK)=S TI-1EN GO TC ^^""9 ^'^ WU>0 MfCi WU^IOJ THOJ Pf 

3310 RRIrJT -GROUP Ori HOLIDRV" S1A5 IP UAJ ) ] 60 ' THEN F^If.iT 

aOS-J PRINT -"i*™"""™ ««« «wf(wf-imi,»mm .. 51A6 IF M-l-O THEN PRINT , 

3330 PRirJT -R WELL. ERRf.)ED BRERK ^;ig f^f^^T^^ ^ 

FOR TME" , "GROUP" 5153 LET 5ErT = 

33AO GO TO SCiOO SiS3 IE TIME= 1 THEM LET SL , . 

3.350 IE NOT «<WEeK)=5 THEH GO TC ^l^° ^'^ TIh1E>l THEN LET TIME=t; 

33SS PRTNT "CONCERT HRLL" 

33eo GO TO 35 10 

gJ-OO IE RnjEE:K)=e THEN GO TO 3S<' 

34-3CO-"RINT -STRDILIM- 5210 GO SUB • .__ 

34 i J PRINT -flsw«K»^.'-,un»... Ea30 GO SLfB SBOO 

"^^■=0 GO TO 1510 EaaO PRINT 

3500 FiRINT "HREMR" ^^.^9-gg'^'''''^ ''"<=«' C^TRILS OF 

"'SO 1 PRINT "mn^rsiBBsi- »L'^<_E^a 

35JO IF RND(a»)>9 THET-I GO TO 3SE SSSCBPRIf-rT 



"P"s 



■ t-'RXNT -SO Ffip;- 



3SS-0 PRINT "R GOCO CO,"JCE»T . " * i='12) ; 'R" ; Ct-ff?i 1 22a) ; " THEN 

3530 LET ERN=FRN5 5230 PRINT 

3S35 LET FRNS= (ERNS/lOl >^I I ^SSS PRrr-lT 

5^g|..,^^j^^^>SC'<>C>C' THET^ LET RRNt, E290_PRINT_ 'FOR R NEW UEEK 

3-34-0 LETt'^i =rr.c-_^ 

354-1 PRIN 

RNGED- , "I 

0=^4-^ IE Rfl-.lEEt-;) =■? THO^'i LET C.R3H2 OO 

=CRSHS+3C"3 

35*15 IE Rl(-/EEK! 
=CR=H2+e 

3=45 IE r((..c:e>; ) =s thetv let chsh 



353S LET FP,r-i3=FRr>IS-PRr'IS,.' 16 S355 FOR R=l TO Slf'lGLE 

3H5e IF R(ujeEK,i=s THEra let c;r5H2 ssss if singletjs thet-j print 

= GR3H2+il. SaeOBLET D=ni25+314.'75 

^^^"^ iT «'WEeKJ=S Tl-iEN LET CRSH2 53B5 FOR e=D TO D+IQ 

= CR5Ha+d.O 5-l~0 PRINT CHR* r PPF>r- f r 1 1 

= lRiHl+aOo'^^'=^ ^^ '-^■^ ^"^"^ ^=^' IF PEeStSfiT^EN'pRIM 

35SG GO'^TO 3Sa-V 53-7S MEXT F 

5COO IF R( WEEK) J -a OR RIKIEEK>=S T S3SO PRINT ,r 

HEN LET Fnt^J5=(FRN5^ lO) XS 53S1 IE PEEKIRWI. 

5005 LET RtWEEKl=0 ?-'-■' ^'^ t--Lt.-K; IS ) < !> 

5009 GO SUB 9600 53S2 PRINT PEET' f B. 

5010 GO 5UB 3500 g^gg f^XT R 

^■^SO^^PRINT -END OF k-EEK "iUlEEKJ" E390 PRINT -PF?ESS NyL FOR RLBUf 

5030 PRINT 53SS INPUT B* 

504.0 GO 5Le 1 10 5*00 GO SUB 3SOO 

SOeo PRIf.iT -GROUP MDRRL-E = - ; t-1C»; =^'S PRINT "RLBi^lMS- 



: 



. SaoS RRINT 

EO&aj=^RINT Si30_IF RLBUM=0 THEN PRINT ' 

S065 PRINT * POP! il oii>rTv ■■ ^^, LBU^to HRVET BEEN RELER5ED " 

^ <^^ f-HdIVI l-UKH_iLhi^IT.' = ;FRf„ Sill IF RLeUi^=0 THEM C-O TO ; 

5070 PRINT ^*?9 PRirrr -title-,, - 

B073 PRINT -Lff^tPELERSEC. RECORDIN<; EO^^OR R= 1 TO RLBLM 



ld.a-7) 
lN PR I 



:rr=-,-e 



JUST 



tNUjO IF Hi_BUM<S TriO-i PfvINT 
5d35 LET [r.=2Sxn*3a9TS 
54aO FOR B=D TO D+3S 

sens PRINT cKRitPEEKte) ) ; 

5446 IF PEEK»B)=1 THEM PRIN^ 



saso 


rjr 


■;t b 












5J.6S 


IF 


REEKiB) 


lO 


TMET^ 


PRINT 


S4S0 

54S0 
WEEK 
5-05 


PRINT PEEKfBtlJ 

f-lEV/T R 

PRINT -RRESS N.^L 

irjPLfT B3 


FCtf? 


^^ 



5500 IF SINGLE < IS THEJI GO TO SSI 

5501 FOP N=31500 TO 31350 
5503 POKE N,PeEK(N + 3S) 
5503 NE^.T N 

B504 LET 5IN<3Le=lS 
£505n=OF? N = ] TCI 5 

LET XCN) =XiN; -SS 
. F'JEXT N 
,0 IF RLBL1M<11 THEN GO TO 5510 

■ FOP N=32000 TO 32225 
a POKE N,F>EEK (N + 251 

.3 NE>rr N 

■ LET RLe'..»-!=10 
.5 FOR N=l TO 5 

" LET lJCNt=U(NI-e5 
NEXT N 

5519 IF SET=0 THET-J GO TO 35 
55E0 GO SUB QSOO 

S530 PRINT -VOLIR C-Ot-JTRWCT WITH " 
iC* 

55ilO PRINT "HRS Eyj^IRED . PrS THSIV 
OWN THE RIGHTS TO YOUR RECOR 

DINGS YOU WILL r40 LOT-IGEJ! REGIE. 

VE PRYMEMT ■ - 

55S0 PRINT 
S550 GO SUB 9505 
ESaO GO TO 0-=^ 
SOlCflFOR fl. 



R THE P*^)ME 

^:-50 IfiPUT 1=)?^ 

QOgO CLS 

S200 LETT C.R3H]=SOO 

91 lO l-ETT CFt3M2=l 

3120 LET CRI3H3 = 

9150 LETT FRNS=0 

aiso DIM o<sa) 

SITO LET UiEEK=3 

SieO LET YERR=3SSa. 

•3 190 LET nLBLIM = 

■92C-0 LET SIN15LE=0 



FROM THEM, 



aS50 DIM Y(5) 

92SO DIM X<5> 

93"70 DIM UC5) 

Sa-1 DIM SIS) 

92T2 DIM U(S) 

9273 OIM 'J(5> 

92SCOLET REC = O 

3290 LET TIHe=0 

3300 LET ■CLILL=0 

g*00 RETURN 

3J-5J IF CR5H1>-1 THO-J '3-0 TO BASS 

■3£V52 LET CRsHJ^CPISHl + lOOO 

QiSa LET Ct:i3H2=Cl=lSHS- J_ __ „,^„ 

^j.=^5 IF CftSH2)-l THEN GO TO Qd-SQ 

SaSS LET CnsH2=CHSHS+1000 

Sa-SV LET CR5H3=CJ=1SH3-3 

eas3 IF c«sh3=-i Tt-er-i go to sgoo 

54 sa RETURN 

Q.ie.1 IF CftSHK 100 3 THETJ GO TO B^ 

E<1 



TO O 

"UES-; 



50 J 5 Gu SLE 3500 

601S PRIt-JT "UEEJ"; "iUEEK;- " i YEFI 

6017 PRINT 

602O PRINT , "BOOKINGS" 
BOai PRINT , -'"f^«'™iim*»T»- 
6022 PRINT "UCEK" , "EVENT - 
50PS FCiR B=Ril3+3 TO P):i!33+i3 
5030 PRINT B, 

5035 IF R(B1=0 THEN PRIf'TT 
604O IF RIB) >0 RND RIB' — 
RINT 'RECORDING " ;R(B( 
5CSO IF RfBJJilQ THETJ PRIr-JT "PUB/ 
O-LS HRLL" 

50BO IF R(B)=5 THET'l PRIMT -CONCE 
RT HRLL- 

6061 IF RIE1=B THEN PRIfMT "RRENP, 
Tf-EN PRINT "STRDl 
; THEN PRINT "HOLTD 



94-64- IF CRSM2< lOOl 



I GO TO 9A 



9-V65 LET CRSH2=CRS,'-t2-l<:'00 

Qcies LET C■«SJ^3=CRSH3+ 1 

9J.&9 RETURN 

9500 CL5 

550^3LET B3.=R* 

5^\.'S PRINT Cr-6vi 1 123) : 

95JO LET s=oooetBaj 



.; d. THEN P ■^ 



■3520 IF B= 1 THEN GO TO 9SSO 

O PRINT CHR«<B+ 12S.1 ; 

Bi.^TL»l"BS) 



9S50 GO TO 9S10 
S550 PPINT C.HR$(12S' 



5053 IF R 1"B 
507CHIF RtB 



Q&05 PRINT 'PRESS N---L TO CONTINU 



SISO NE)rr I 
5200 RETURN 

8999 5 TOP 

9000 FOR N = 
50C-: PRINT 
900-^ NE.iCT N 

901O PRINT , -•"""■"i™": M.BmunBMot.i 

903O PRINT - VOU RRE THE MRNRff 
EP OF H POPGROLIR. THE GROLIR HR 
VE ENTRUSTEDUPON YOU Ti-I^ TR5K 

OF STEERINGTHEM TO THS: TOP OF T 
ME CHARTS . - 
9035 PRINT 
90d-O PRINT - THEY HR'.-'E VET TO 



3S30 INRLIT B$- 

gS20 CL5 

9e30 RETURN 

Q-700 PRINT 

S-70I PRINT -f-KDt'i MRN>' RECORDINGS 

TO BE t-tSEO F-OR THIS REi-Ert^:^ "? " 

9T05 INPLrT RECl 

9T10 IF REC):* OR (;EC1)REG THEN 

GO TO 9T05 

9-711 LET REC = REC-REC1 

SVIS RETTURN 

9300 GO SUB 9SOO 

e-310 PRINT - 



THE GRDLIP HRVE O 



lYOU HA'./'E BEEN 



Across The Pond 

Mark Fendrick examines some of the 
add-ons available to U.S. owners. 



Speclrum. (The only exceptinn much of a linkersr, and manag- j^,,,^ a|| Specimm er 

terniplreglslB' is invoked. Since Spectrum programs in under j/s 2068 programs, ; 

ihie U.S. power system is 60 llvemintnes.TherBls nodrilling. lojg au „( ,(,b t/S at 

ring or cutting involved, features. Addilionallv, s 



V wait, The prototypa nol oompatihie with U.S. hard- and the oi 

((Sinclair microdrive was waral. Using the EMU series of screwdriwi 

insirated by Dan Ross lot emulators does not require any anyone cai 

11 Computer Corporaiionl modification of the T/S 206B Either E 

I Timei Celebration held by itself, as they are inserted and job and be 

- ■ V i" October, ■ ■ ■ ■ -■ --■■ - ■"-- 



1983 Then in February! 


case >■ ">■ 1 a 


Timei. ROM with a Specuum 


dealt with The AEtJ MicroDrivJ 


1981, ali our dreams went up iri 




ROM. There still is some fine 


company ot Sunnyvale, CalHor 




smoke, or at least so it seamed. 














2Q6B. and ihis modification 






Emulators 


known tor Iheir WINKV BOARD 
casselte/compijier intarfacesl. 


would render much of whafs 
available inoperable. There are 


pletely unmodified T/S 2069 
No newcomer to the field, A&. 




Another device utilised by Mr. 


Known as the ROMSWITCH, it 


msny advanced features of the 










T/S 2068 which would be lost 


the T^IOOO since before Ih. 






Timax and Spectrum ROM's to 


using a Spectrum ROM alone. 


introduction of Ihe T/S 2068 




board iwhich, when insertedinto 


co-e«iBl inside the TS and to be 


The EMU or ROMSWITCH gives 


andT/SlBOO. Both models U! 




the TyS Command Cartridge 


selected by means Df a switch 


you the best of both worlds. 


a stringy floppy wafer (ths Ti 




pon.ailowstheT/SaOeatorun 


which gets placed onto ihe 


UnfortutiBlely, the enpan- 


2068 model uses the sam 




Spectrum software. This was 




sion bus on the T/S 2068 is ar 


wafer as the Damco/RotrDnii; 


















transferred at a rate of 1140 






features are two IC holders, one 


Spectrum emulator, it is not 








of which contains an issue 3 


hardware compatible, thus slill 


limes faster than the normal Ti 






Spectrum fiOM. The other 


precluding the uss ot any Spec 


2068 cassette rate, and ma 






socket Is empty when you first 


tium add-ons, Including ZX 


than forty times faster than tli 




puiers. Thanks to two enter- 


receive the ik. A small glass 


Mic rod rives. Thai challenge has 






prisine individuals, T/S Z068 


enclosed swritch completes the 




1000/1 500. Theinlerf ace c«i 






device. (Most dealers who sell 








tualiy all available Spectrum 


this productalao offer to install it 


This interface attaches to the 


face which, when the prQBi 






lor a fee, but it is so simple that 1 


T/S 2068's expansion bus and 


software and cables are atisEh 




Tailing his cue trom Times, 


suggest IhBl you consider doing 


rearranges the lines so that the 






Douglass Dewey, founder and 
president of the Triangle Sinclair 




output side ol Z-iink presents a 






ROMSWITCH you first remove 


Spectrum configuration. Using 


system, all of the Timex's li 








this device with either the EMU 






Carolina, developed and 


together. You than lift the top 


or ROMSWITCH will bIIdw you 








off and locate the ROM chip. 




in Spectrum made, but theiB 




Chameleon. The EMU-1 and its 
big brother, the EMU-2, are 


Identified clearly in the instruc- 
tions supplied. Vou next simply 


peripherals. Vou may now use 


work being done in thai ditao 




boards which contain a pseudo 


remnva this chip and Insert it in 


joystick interfaces, which are 


In the last few weeks a f« 




Spectrum ROM. (The EMU-2 is 


the empty socket on Ihe PC 


utilised by many Spectrum 


Disk Drive interfaces have q 






board, which then Is placed into 


games. (Remember that this is 


peered, bul that is a columni 




for the fact that it contains an 


the IC btjider from which you 


all in Spectrum mode, therefore 


by itself. As always, 1 enit 










hearing from you, and look fo 




vou may insert an EFROM o( 


Now vod replace the top of the 


joystick ports on your T/S). 


ward to your letters. The SIikIi 




your own). As with other Com- 


case and fainsert the screws. 


At the time lam writing this 


communitv is quite unique intf 




mand Cartridges, when insaded 


The e sternal keyboard switch is 


a number of new ptoducts are 


amount of support and coopH 








coming onto the market which 










are able to interface Ihe T/S 


owner^sers. In f^Ofth Amerlc 




switching capabilities of the T/5 


on the ROMSWITCH board and- 


2068 with an Interface 1. This, 


this is what keeps us sirtn 




206B are called into play, runn- 


ot course would finally make the 








ihereOy selects either the T/S 


ZX Microdrives available to T/S 








2063 or Spectrum operating 


users. Damco, of Fall River, 










Massachusettas, is offering a 


Mark L. Fendrick 






assembly next id the "O" key. 




P.O. Bo. 2392 




normal double copyright (Timei 


and once you have ascertained 




Secaucus, 




& Sinclairl is displayed. Then, 


and does indeed switch the 


available; one which includes a 


0709'4-09992 




itialisation takes place and this 


ROMs, you remove Ihe backing 


Spectrum ROM; one for those 


USA 




fi4 ZX COMPILING AUGUST.-SEPTEMBERISH 







AFRICAN SEEDS is based on th 
mancala gamas popular 
Africa, The nature of the game 




Spectrjm 


i 


A/'-Z^ 


on The in- 

igures (he 


varies widslv from plaice I 
ptecs, but they are jsually base 


^ 


^^/^^'' ,.^' '--- 


16 [hrough 
Speclmm 


™seedT. 'Ja™," stones'"' 




^ ,. . #^%* . V. 


ckages. the 


the around, cups, or liollows 


01'nf '^^^H^HSpiHI^ "^ '^ 


kT^mTs 


garre-boards, There may b 
two, three or four players' an 




blckTAs 


oHher two or four rows of cells 
and the way they are divide 




D'^mei 


condiikins under which captur 

Aye, Ba-AwB, Lomu-hob War 
Wllyo, or one of the foi,r-ran 
mancala garriBs. Wari and Awa 






ars probably the most profoun 




Iw^-k'"' 


to baonalavelvi/itb chess, bj 




las beer 


other games are taster, with 




!, Califot- 


rrore dramatic changes In for 




S 2068. 


The games are well suited f o 


.^\ wjnr ^^^^ It. 7 BrJB^H 


«lore the 
/S2068 


l»at humans. From the player's 
pointofvia*. ills much easier to 
type in a letter on a compute 
ksyboard. than topick up maybe 
thirteen counters from one cup 




B dala is 
(IMOO 


another rovt of cups 




ormal T/S 
Ihan IhB 


-though at levelOyooll have 
win easily, hui a sequence ol 


f" % SH ^ 9 E3 


rfacecon- 


lifts tan continue for, say, 
twenly-five moves, and the 
computer is rather better at 
keeping track of them than 1 ami 
Oon'l lose heart, though, the 




3S 


deiibBrateiy limited - and euen 
St its highest level, it's still 

yours. At the atatl of the game, 
the computer loaaes for first 


jtd^^^l^r a^ar'^Vte^ 


e Sinclair 


IhB cup you want to lift. The 

computer will take the seeds 

(aliaintoanoccupied cell. Blithe 
seeds in that cell are lifted and 


APRICAiT 


«—■ 


Ing must continue until this is so 
-you capture the seads in the 


SEEDS 




nil is in your own row. The only 


Down in darkest Cwent something stirs. 


1 


wllh m'leeis to play^T w!lt 


it's MJ Edwards playing this brain 




that provso, once you have cap- 


testing game!!! » 


FR19Bi 


;X COMPUTING AUGUST.^EPTEMBER 1985 S5 






IS simple, and tbe table sboj 
make it easy ID modify. Fore 
ample, if you leave out the i 

agueaze It alMntn a IBK Spa 
irum. Or, you might prefer 
display integers, as in Line 
2325-2330, instead of the pip 
in Unes 2301-2324. If yo 


"^ Subroutines: 


OB ihe call opposite It 


The computer's spead o( 
level chosen, but is reasonably 


■ ^°° mChecka'^ov^ 


ka lifts 






get bored, you are tieated to a 
dispfav of flaaWtta lights and 
bleeps la feolure lacking in the 
African originalsi;. They a-eir.- 


300 Display board 
s 400 Tidy display 
s 500«OD Result = END 


Arrays used: 


thojgb — thev show which 
















sideied. A steady blue light 










tions 
3000 Codes for seed p 


='- the player's 


gr.TK'irirrS" 




















LINES FUNCTION 






— seed display 












User-defined graphics 


variables used: 










?« 


^, Data and user- 


1200 Com outer's mo™ 


End check 




defined graptiics: 






1 level chosen 


Lines 2300-2324 consitllutl 






sc set 10 1 to maki 




1500 Player'smcvB 


Make move 


™vXate'the'posl° 


o function displays integers, 
n Graphics A to H reoresent tt 










GOTO1200ELSE 


DEBlay board 


scored on a rnove 


Graphics 1 to L represent Ifieo 






reaches an end 


s right, top left, bottom left, 6i 
torn right. 













REM *******ftj(****>t*^f» »**;(») 



1| PAPER 21SCREEN* 



K COMPUTING AUGUST /SI 



. 



■^SPECTRUM PROCRAMJ 



200 PRINT fiT 17, CODE a9(h)i BRI 
GHT ll INK 01 PAPER 2ISCREENI (1 
7, CODE a5(h)): IP hlhlOl THEN 
FOR b-10 TO 10th(h): BEEP .003, b 
'tf: NEXT b: RETURM 

210 PRINT AT 17, CODE aXhJ; PAP 
ER 3[ BRIGHT IJSCREEH* '17, CODE 
3«<hni: LET end = l: LET np = 13-h: 

FOR b"23 TO 2.0.h(upl: BEEP ,02, 

ti pie>;t t: if (not ix and dp<7) 

OR llK AND op>a) OR hot h(opl TH 



22.9 LET I 



h(o| 



NT AT 17, CODE a«(opH FLASH 1; B 
RIGHT II PAPER SiSCREEN* (17. COD 
E aafoplj: FOR b-30 TO 30 + .iin: B 
EEP .025,b: NEXT b: RETURM 
390 PRINT AT 17,0!" "!AT 

15',12l BRIGHT 1) PAPER ld-B*INT 
Id/Sill IMK 9|- MOVE -ItJI- -i: 
FOR p-1 TO iz: RESTORE 2300-tb(pJ 



■ LINE u*: IF CO 
) -H9 THEM GO SU 



1043 GO SUB 2020 

1060 GO SUB 2080: INPUT LINE u< 
: IF u«<"0'' OR u«>-9" THEN GO 1 
□ 1060 

1070 LET l^L-AL u».-20*(u«="0") : F 
RINT AT 15,01 ■ 
": FOR p=15 TO 



STEP 2: PRIJ 



(p) 



h(p)^ 



,d*b(p) : NEXT F 

319 PRINT AT 15, 11) 5(2) i: PRINT 

AT 15,2015(11: PRINT AT 19, till 
•: RETURN 

^00 BRIGHT 0: PRINT AT 17,0! PA 
PER Ir'A B C D E F MOVE G H 

I J K L'; RETURN 

390 PRINT ("You Jose b>- ■+£TR« 
(slll-s(2) It- points.- AND S(1J> 
s(2!) + CYdu uin by -tSTR* (s(2>- 
Sdllt- point-.- AND E(1)<=(2)1 

510 GO SUB 400 

529 PRINT AT 0,0: INPUT -Do , nu 



etui 



"1 LINE I 



I; IF CODE ii»=BPt32ft (u*: 
N GO TO 1040 
530 STOP 

saa PRINT AT is,0)"cupH -)CA 

D L" AND i»)l(-G to L- AND NOT 

seeds are forfeit. ■' 
609 PRINT AT 20,0! -The game is 



i)-CHR» y: tlEX 



nl=CHK!« x: LET ; 

1090 PRIfIT AT 15, 0i 
PER l! INK 7! -PLAYEF 
S SPECTRUM- 



1110 RANDOMIZE : LET ix = IflT 

1120 GO SUB 300: GO SUB 40O 
1150 IF ZK THEN PRINT AT 17, 
BRIGHT 1) INK 71 PAPER ll'>' 
NPUT "You have lost the toaa. 
Press ENTER iihen you're 
ady. "i LINE u»: LET pref-Ih 
RND#7+6): GO TO 1400 
1200 IF NOT IK THEN GO TO IS 



1 GO S 



1220 



NOT 



THEN LET c= 
GO TO 600 
^29 RETURN 



1300 PRINT AT 19,01 -ANALYSE ■ 
OR p-7 TO 12: LET d=0! LET e. 
: L-ET iHn-0: LET Qp=0: if moi 
p) THEN GO TO 1350 



aSPECTRUM PROCRAMll 



1320 LET h-l 



LET I 



FOR I 



1330 GO SUB ^00: GO 3UF 100: IF 

d<l AMD NOT end THEN GO TO 1330 

1310 LET m(p)=nlr,*eod 

1350 NEXT p 

1360 LET pref"7: PRINT AT 19,0! " 

EyflLUATE': FOR p-7 TO 12: IF m(p 

l>in(pre+) THEN LET prei-p 



1370 



LET b=0: FOR p-7 TO 12; 1 
»f THEM IF b<p)>0 THEM 
-iii(pr*fl THEN LET b=b'-l; 



p THEN LET pref 



1390 NEXT p: IF 

-mflNT (RND«b)- 

119S LET snd-S: LET [J=0: LET op- 

0: LET sc'l: LET h=pre+ : LET i-iin 

-0: GO SUB A<3'3: FOR p-l TO 12; L 



tb'.5)tb[6)) THEN LET 5(2)-^ 
1S-s(l)-s(21 : GO TO 580 
1500 PRINT AT 17,121 BRIGHT 



1540 LET h-CODE u«-61-32* ( aS> "Z ■ 
) : GO SUB 400; IF h<0 DR h>6, THE 
N PRINT AT 21,01 "Illegal move; 
please re-enter.-: GO TO 1500 
1550 LET d-O: LET i>.=0; LET sc-l 
; LET .iin=0; LET op=0: IF NOT b( 
h) THEN GO TO 1500 



1573 FOR 0=1 TO 12; LET b(| 
): NEXT p: IF NOT op THEM 

B 333: GO SUB 400; GO TO i: 

1580 GO SUB 300; LET 2x=l 



PRINT ■ ' 'iM^ ^^m ^m B ■ 

^m ^ ^m ■ ^ ■ ■ ■ ■ 
■ ■ ^^ ^^ ■■ ^^ ■ ■ 



RICAN SEEDS 
2030 PRINT ' " 




■SPECTRUM PROCRAMt 



jser? 


DATS 


BPB 


Z3PE 


DATft 


BDD 


Z305 


DATft 


CCC 


Z310 


DATS 


CDC 


2311 


DATA 


cec- 


3313 


DATA 


DPD- 


2312 




DED" 


33H 


DATA 


EDE' 


23i; 


DATA 


rCF' 


2316 


DATA 


FDF' 




DATA 


pqrcf" 


2JI6 


DATA 


rp<" 


2319 


DATA 


MCH- 






HDH- 


2321 


DATA 


Gci;- 


2322 


DATA 




2323 


DATA 


MCM" 


2324 


DATA 


MMH- 


2325 




?ri" 




DATA 




2327 


DATA 


77" 




DATA 


?B- 


2329 


DATA 


29- 

3a- 


2ie0 


BORDE; 




LS ; 


PRINT 


"»** 



2103 INPUT "Prt 



2190 BORDER 1: PAPER 1: INK 0: C 
LS : PRINT ■*♦»« AFRICAN SE 
EDS ♦*»»#«##*»jnnfin^^t**#i,j^)(jnf 






♦»**■*)(«»♦**♦##***♦#»**** 



AFRicArj see: 






) PRINT ' ■ One 



tinuc -1 LINE u» 

2510 BORDER 1: PAPER 1: INK 0: C 
LS : PRINT •*♦»* AFRICAN SE 
EDS ***«»***»-*«#)Ht#iHt»#ff»*»». 



2550 PRINT 





capturing a= many seeds as poss 1 


Is decided atrandom b / the cnnii 




ble. A ECDreo* tnenty-flve ensu 


uler.-'-Vou have cups A to F."' 






The computer has cups G to L.' 




2430 INPUT -Press any l,ey to con 






tinue -1 LINE u« 


ted to mn'.e, simply enter the le 




2410 BORDER 4: PAPER 1: INK 0: C 






LS : PRINT ■**it+ AFRICAN SE 


Mish to sou. The computer nil I 






'lait +or you to press ENTER bete 




••♦*#♦»*##♦»■ 


re making itsoiin move." 


5 


21 SB PRINT '■■ Each pla.er i r. t 


2570 PRINT ■■ Uhen the game is 




urn takes the seeds from an, one 


resolved, thecomputer ..ill end 


- 


oi his cups, and sous them one 


t and declarethe result. Vou cs 
















tarting ulth the cup ne«t to th 


assg input' ■'Press R to .epeat, c 




e Eourte cup, • 


r any other key to play the gantfl 










of the move lands in an octupie 


7«=-r') THEN GO TO 2100 










e seeis frnm it and continues ed 






iiing. Play goes on in this .ray 


11,22, 11,27,5,27,5,22,5, 1^,5,' 12 




until a moveends in an empty c 


5,7,5,2 


'""" 





Bookshelf g 

OL software may be slow in appearing ;;:r."i,T; 

but there are books on the (JL all over S"- ■,"" 

the place! :."»""." 



SUPERBASIC th 



An introduction to 
programming The 

Sinclair "i eiemenar 

Often in the past I hiaue entolled all hBte in it 

the viflues ol books fram ihe ween IhB ct 

Babani publishing house. Theii iJispuie ihat 



e 'Assemblv Language g gi^j 



tions lopics'. But this 'eally bidn'i 



SUPERBASIC(asoBpo 
dinarv BASICI may bt 
does not comphmenl 



.t using IhB QlmII 



it SUPER- E1.95(i; 



written by R.A. 
-85934 125-9), 



The Sinclair QDOS 
Companion 



inglNPUTand PRINT, d 



0-940408-90 0). 



Introducing The 
Sinclair OL 



The Sinclair QL Sen 



.il uselul, t)u 
riH The Sine 



COMPETITION 



Win A 
Sinclair 
Poclcet TV! 



Ihe Pocket TV (n 



DMR H A D D 
H A F K EWY 
T E LWB C S 
E EG L C BG 
DT VMA R Y 
I EWG H S B 
WE H V C X S 
N RGH J Y I 
OR F G H T H 
I F E J L S Y 
T YWOG AN 
AG F DT N N 
NDS F G Y R 
E DH J U D E 
J HG RWQC 
K E RT R AT 



Y O P 
R F H 
O Z A 
N I J 
A R G 
K T G 
CWR 
A R A 
J I N 
T GG 

Y U E 
L I H 
B H I 
VM L 
BX L 
S R T 



N H J B L K 
MO S L K Q 
S DT U H G 
M E R E V H 
L P C P D Q 
T J ME A A 
H I K T H L 
Y H N E U Y 
KT H R B F 
R Q E Q F A 
H D Z X F B 
NG Y DC G 
K L O QWA 
R E AQS F 
J L U T S H 
N D RWHO 










I ZX PROCRAMMINC I 




Light Screen 
Designer 



POKE 56798,191 



Only one address in tiie Con 



Part? 



by 

Ton! Baker 






I SOFTWARE REVIEWS! 




SHORTS FUSE -] 



Budget 
Software 

A look at some cut price soft ware for the spectrum. 

Firebird 




3f SW liBuB add- 



grams in Iheir S 


ver, £2.50 


FAHRENHEIT 3000 was 
nginally a full priced program 

nd is a platform sivie game, 
hough nothing spRcial il is a fair 


DONT PANtC 


£ a variation 


Jhlle tou^^haCe 


'°T\osa"l 


arious levels of 


™e'°pCyin0 


ctrve and very pla 
-EdSAssislam 
HELIC HOPPER 
odge game which 


'iab\e\Sodid 


hough as wUh all t 
he quality reflects 


"sisss. 


SHORT'S FUSE 
addeningly addic 
htch you have IOC 


a simple but 
ve game in 
hase around 


SUBSUNK is a g 


aphic adven- 


utstanding it is wb 
comparable to pro 
Dili at twice the 


gramslieing 
rice Worth 




one 







iUBSUHK 



= iM-igN* 



ridiculoLS, DONT BUY THIS is i 



Creative Sparks 

QUACKS HOT 13 the first ralea 
new £2.50 "Sparklers" ranjEJ 



Mastertronics 




HeUCHOPPER 







m. 




The f nil firsi prize is as follow! 



Sffl copies of ihe 'Broad Sireet' 






S) What li 
inish? 



tsnloallthepriiesoni 
on also ofler yon a 

«l«n you bgy Broad 'sueet rf>,~.^aZi'bi^^^ 77,^^7^ Tt.Tr 7 ;— ^ -] 9' Wlist was the ISEt t jbe ste- 

dlrecHromils publishers. haie lodo W anler Th^min^^ tion Sandra wem through? 

Theprizes \iu^{'se^Z'^ou7cuZ'''°'''''^°^^^^ 

ZX Corrrpuling, Broad Straet Com petit lor., 7 Colder. Sniiare,.' 



Software v, 



The rules 



I _;_ 



z>^- 




OFF! 






— y^-' 






the jury 




CHARLIE AND THE 

CHOCOLATE 

FACTORY 

Hill MacCibbon 

£9.95 

Aninlereslingpackagi 
RoaldDahCsDopulaib 



rom Bally Midway/Seg 



STARION 
Melbourne House 
£7.95 



¥ work (or a few hours 


are four ol 














t within the block and 












the number and shape 






points can also bB gained by col- 


torm type game 


This IS a nicely presented 




define playing keys and a re- 
quest to "sign on", the graphics 
ere pretty good but some 
movefrents are a little jerky. 
Pley is niCBly graded so ihaiyoj 
r;an start playing quickly and 


game mill not be th 
you do get infinite 
chance to explor 
before undenakin 

task. 1 found tfiati 
ing these games b 
inspiration to go fo 
solution. Not bad if 


';SoST™"",",".'S." 


GRAPHICS 


lo (eeiing pleased milh my of- 


OVERALL 


GRAPHICS * # * * 
ADDICTIVENESS * * * * 
OVERALL * * # * 


BATTLE FOR 
MIDWAY 
PSS 
£4.95 



GRAPHICS # # » » ^f GRAPHICS * * » * 

ADDICTIVENESS * # » * ADDICTIVENESS » * * » * 
OVERALL * **** OVERALL * » * * * 




repealing vicious gossip! without the speech. It's fast, a loyslick and quite compleii in- mend vo" feed it in deiail m 

Actuallv. whatever vour OBI- furious and, with ciever, well struclion scan be entered by this very carefully Brillignti I 

good and deserves your atten- the game is all an armchair things 'worthwhiie, some time GRAPHICS *»#«J 

tion. The game comes well Squash qlayer could desire. has to be spent learning to use ADDICTIVENESS * * # ■ 

nackagedinalBrgepresBntation - -^^ -_ ihe system. Beyond make this OVERALL #**#■ 




Imation, and all It 



To give an eiamole, use the 


think that th 


»l5pp 


iTumu 


























personal details are then shown 








the ■■pick up" Icon and select, 


of the Hag, 


mslt 




















lave been picked up by that 
































will be affected accordingly. 






<hich 




a Blim- 


background lo Ihe 
works that helpe 


garr 
for 


e ll 

tibe 


blB, My 
ugh not 


makes Dun Darach 
and salisfving gam 


O'b 



GRAPHICS * * * * GRAPHICS * # » # » 

ADDICTIVENESS ***» ADDICTIVENESS » * # * * 
"■"■""" * * » * OVERALL »#»*** I 
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Superbubblel^P^'' 

HOW to speed up list-sorting by John StpH^ ^ 

Kinory ll^^.i::::;i:.i v..: 4 



"Id^^cem Shortcomings 






e 50 sets a flag. 






utinelv used in ardering 






Iv caught by Ihe [ncre 






Speclrum 48K. Wil 
version), I used the SM. 

generated randomly for e 









Onginal Irst 






PASS 1 


'ItltlLlu \l 7 












PASS? 






16 ,;. |7-25| 3, 













UBBLESORT 




SUPERBUSBLE 


rt 


".l.t 


,=, 


'ange 


7Z'^es 


range 


pTp^ess-^ 


tSl 


,.„,. 


"fZses 


range 1 medntun 


100 
200 


10 


45 
183 
722 


680-759 


91 
180 


37-49 


1.0 
2.0 


510 


2B-37 
119-169 
469-546 


27 


22-30 
48-70 
92-110 


1.2 
2A 
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ear speed gain is fleijn- 



DIMAIIOO) 

F0R1< = 1 TO 100 

READA(k) 

NEXTk 

LETf=l 

F0Rk=1 TO 99 

IF A(k£>A(k + 1 1 THEN LET f ^ 0:L[ 

A(kl-A(k + 1):LET Alk + 1|^b 

IFf = 0THENG0TO50 



N. .,,™ 


"siSa:", 


ftango ol gains 


£s 


40"'' 
... 


24%-69". 



You cannot be serious!! 




About software, Ihat isl Or at leaal you can't until 

you've made an intelligent decision about 

hardware. 



n, there's a serious danger of going crazy jusi 

trying to understand the choices. Let alone coming 

to an intelligent decision. 

Micro Choice is your answer. Every quarter it 

collects a range of hardware reports so thai you can 

make your own choice of micro or add-ons. 



OLlULCLi 



I ZX PROGRAMMING I 



First steps in 
iMachine Code 



|part 5. ROM Routines! 



An introduction to Z80 Machine Code bv 
David Nowotnik 




thE Spectrum, there is a wealt 


10 REM ZBO SHIFT/ROTATE DEMDNSTRATI DN 


0« machine code subrnutinej^ 
These, Df course, supply Ih 
opereting aystems and BASIC 


15 REM D. 


NOWOTNIK. ZX COMPUTING 


20 REM JUNE 1985 


translatatE (or the computers 


25 DIM A* 


9,B) 


ro'li "° '^^^°P ""Vhes 


30 LET A* 


1)-"RLCA/RLC" 




35 LET At 


2)="RLA/RL" 




40 LET A* 


3)="RRCfl/RRC" 


penultimate part ol our series oi 


45 LET A* 


4)="RRA/RR" 




50 LET A* 


5)= "SLA" 


theROM.ou^nEs'i%!"am?ned^ 


55 LET A* 


6>="SRL" 


we'll complaie the e.amination 


60 LET A* 


71="SRA" 


time,' °^^'^"°"^ slarlBd las 


65 LET «»( 


S1="RLD- 


If vou recall, last rssue we e« 


70 LET A*( 


9)="RRD" 


AND, OB and XOH. Theseallow^ 


75 LET B»= 


'■DEMONSTRATION OF SHIFT/ROTATE 




BO LET C*= 




^^o\"e^J,nVZXlTZJil 


65 LET P=4000 


also turned olf, on, ot were com- 
pared w,lh SET, RESET and BIT. 


100 CLS 






105 PRINT 


AT 2 , I J B» 


allowed by ma china code is the 


110 PRINT 


ftT 6,2; "SELECT:-" 




115 PRINT 




120 PRINT 


1. ":A*(1) 




125 PRINT 


2 


" S A* ( 2 ) 


realise ^ha't''moV''' Ir'h' h™ 


130 PRINT 


3 


■";A*(31 


within a byie one place to the 


135 PRINT 


4 


";A*(4) 


letl Bflectively multiplies the 
ualua in the byte by Iwo (and 
ma^mg right divides by two! 


140 PRINT 


5 


";A*(5) 


145 PRINT 


b 


■■jAS(6) 


then these operations begin to 


150 PRINT 


7 


";A*(7! 




155 PRINT 


B 


";AS<81 


hyl e b y™.Kll"'hv'l'e s'is t o^lr"' '"[^ ^ 


1-60 PRINT 


9 


"!A*(9) 


hiyht'st vriluB bii on Ihs lei'lt 


170 IF INKJ 


Y*="" THEN GOTO 170 




175 LET C*- 


INKEY* 


beginner" and ewna^dlagmmof 


ISO IF C*< 


1" OR C«>"'?" THEN GOTO 170 




1B5 6QSUB 


VAL C«*200> 




190 BQTQ IC 







200 GOSUB ; 


000 


pose iif the Ii5tirig"in Flg*l'"'h 


210 GOSUB 4 


300 


shows you how eachol the shift 


220 GDSUB 4 


400 


their operations - m slow mo- 


230 GOSUB 6 
240 RETURN 


ooo 


The program listing is design- 
ed tor the ZXB1 ; it will not work 


400 GOSUB 2 


000 


as wntlen on the Spectrum; but 


410 BOSUB 4 


300 




420 GOSUB 4 


300 


450 GOSUB 5 


000 



progrj 
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440 G05UB 6000 

450 RETURN 

600 eOSUB 2000 

ilO GOSUB 4600 

620 GDSUB 4700 

WO GOSUB 5000 

i40 GOSUB 600O 

650 RETURN 

eOO GDSUB 2000 

aiO GOSUB 4600 

620 BOSUB 4750 

B30 GOSUB 5000 

S40 GDSUB 6000 

650 RETURN 

1000 GOSUB 2000 

1010 GOSUB 4300 

lOZO GOSUB 4B00 

103O GOSUB 5000 

1040 GOSUB 6000 

105O RETURN 

IZOO BOSUB 2000 

1210 GOSUB 4600 

1220 GDSUB 4BS0 

1230 GOSUB 5000 

1240 GOBUB 6000 

1250 RETURN 

UOO GOSUB 2000 

1410 GOSUB 4900 

1420 GOSUB 4600 

1430 GOSUB 4930 

1440 GOBUB 5000 

H50 GOSUB 6000 

1460 RETURN 

1600 BDSUB 6100 

1610 GOSUB 6400 

1620 BQSUB 7000 

1630 GOSUB 6000 

1640 RETURN 

laOO GOSUB 6100 

1B20 GOSUB 6500 

1830 GOSUB 7000 

1940 GDSUB 6000 

IB50 RETURN 

2000 CLS 

2010 PRINT AT 1 , 1 j B» 

2020 PRINT AT 4,2[A*<C) 

2030 PRINT AT 7 , 12i "REGISTER" 

20flO PRINT AT 6,11; "i 1" 

2050 PRINT AT 9,11; " J 1 " 

2060 PRINT AT 10, 111"; I" 

2070 PRINT AT 1 1 , 1 2; "76543210" 

20SO PRINT AT 13, 16; "C" 

SOTO PRINT TAB 15; " l-l " 

2100 PRINT TAB IS; "1 | ■' 

2110 PRINT TAB 15; " 1-1 " 

2120 PRINT 

2130 PRINT "REGISTER - A,B,C.D.E,i 




e msiiuctinns (RL Eh i 



lions en the ZBO't 
ie ROM rnulines 



The ROM 

The ROM on bdt 
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oiJifnes. 2140 GOSUB P 

EsclibEd ^^^^ PRINT AT B,Oi "ENTER" 

^^^„l„n 2160 PRINT "REGISTER" 

a code 2170 INPUT D 

.^.e'Is ^'^"^ '"^ ^'-^ °^ D.-255 OR D-:; INT D THEN GOTO 2170 

tinesa,e 2190 GOSUB 4100 

3ndtiow 2200 PRINT AT 9,I2;Y* 

Id^wh'lt" ^^^° PRINT AT B,0;C* 

)d-w,ll 222U PRINT C* 

nqed - 2230 PRINT AT 9,2jDD 

"""" '^ ^^li-' PRINT AT 15,0: "ENTER CARRY" 

rdgram 2250 INPUT E 

.Logan 22tO IF NOT (E=0 OR E=l! THEN GOTO 2250 

(OmI ^^'"^ ff^r^T '^T 15,0,C*}C*( TO 5>s TAB li.E 

22B0 PRINT AT i5,2:e 

I 2290 GOSUB P 

:^^"0 RETURN 

' 40')0 FOR I=il TO 25 

= iti[iii, 40111 NEXT I 

>tl^w!th ""^20 RETURN 

istlhat ^100 LET YS-"OOO0OOOCi" 

■oks are 4110 LET DD=D 

'^*l°Jll 4120 FDR 1=8 TO 1 STEP -1 

ROM 4130 IF D/2.L> INT <D/2) THEN LET ¥*(I)="l" 

^mtwo 4140 LET D= INT (D/2) 

m^bDDk ^j^^ lygj^^ J 

eCom 4160 RETURN 

F10M 4300 PRINT AT 9,12; CHRS (CODE V*+l'?e) 

aofihe ^-^"^ GQSUe P 

.eROM 4320 PRINT fiT 9,12:" ": AT 9,ib)CHR* (CODE Y* + 12S! 

■ting in 4330 GOSUB p 

IS the 4340 PRINT AT 7 , IQ + I : Yf ( i ) ->■" " 
jivenrn 4345 FOR J = i TO 10 
4350 NEXT J 

mngof *^^^ '^^^'^ ^ 

i which 4360 GOSUB P 

ion fo. 4365 RETURN 

^FtTS\ '''"^'^ PRINT AT 9,6:" ■' ; AT 9,19tCHR« (CODE Y**12B) i 

■codes, AT 15,16iCHR* (CODE Y«4-128l 

od'lt^i 4405 GOSUB p 

mma! '^'Uti PRINT AT 9,19jY*(H; AT 15,16!YS<11 

imhich 4415 LET Y*=Y-r{2 TO )+y«11) 

a'code ^''-^'^ GOSUB 5000 

iigsav- 4425 RETURN 

hatm- 4500 PRINT AT 15,16; CHR» (E-H5fa> 

I'tVns ^Sti5 BOSUB P 

=ROM 4510 PRINT fiT 15,161" "; AT 9,19; CHRS (E+156) 

° ''=^ 4315 GOSUB p 

'zxei ^520 PRINT AT 9,6;" ": AT 15,16; CHRS (CODE Y*(l)+r 

wn ,n 4525 GOSUB P 

chines ^^■^'^ PRINT AT 15,16!Y*(1); AT 9,19s CHR* (E+156) 

leigh, '^3t0 LET Y5 = Vi (2 TO ) +CHR* (E+2B) 

There 4550 RETURN 

™^d'' ''^'-""^ PRINT AT 9,19; CHR* (CGDE Y*(B) + 128) 

ie Bf- ^''05 GOSUB P 

4610 PRINT AT 9,19;" "; AT 9,24jCHR* (CODE Y*(B) 
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H2a) 

1615 GQSUB P 

4620 FOR 1 = 7 TO 1 STEP ^1 

4625 PRINT AT 9,11 + 1 + 

■1630 FOR J^i TO 10 ' 

4635 NEXT J 

1640 NEXT I 

1645 GDSUe P 

1650 RETURN 

1700 PRINT AT 9,24; 

15,16;CHR* (CODE 

i GOSUB P 

J PRINT AT 9,12; 
1715 LET V*=Yr(B)H-Y 
1720 RETURN 
4750 PRINT AT 15,16 
1755 GOSUB P 
1760 PRINT AT 15, 16' 
4765 GOSUB P 
4770 PRINT AT 9,-^4- ■ 
1281 



AT 



iT 15 



More Registers. 



(o the Z80 are rela 



B,LDA,6«illonlvio. 



(CODE 



15, Ih;' 



h-.CHRS (CODE 



CHR* 



5 6DSUB p 
47SO PRINT AT 9,12:CHR* (£+29). 
1795 LET ¥*=CHR* (E+2a)+Y*( TO 7 
1790 RETURN 

1800 PRINT AT 9,6;" "- AT 
4810 GQSUB p ' 

4815 PRINT AT 9,23; CHR* 
1S20 GDSUB P 

1B25 PRINT AT 9,23;" "-AT 
4830 GDSUB P " 

4833 PRINT AT '*,19;..q... f^-p [^ i^.y*,,, 
1840 LET y*=V.r(2 TO )+"0" ' ' 

1845 RETURN 

'850 PRINT AT 9 2A- ■• "■ ct ,•= ,j ^,,r-^ 
4B55 GOSUB P " ' '^'^^sCHR* (CODE Y*(, 

4360 PRINT AT 9,6:CMR* 156 
1B65 GOSUB P 

4870 PRINT AT 9,6," " ; AT 9 i-'-CHRt i -a 
1B75 GOSUB P V,1..CHR* 1^6 

leBO PRINT AT 9,12;"0";AT 15 16-Y*(8) 

4885 LET Yt="i:i" + Y«( To'?) ' ' 

4890 RETURN 

4W0 PRINT AT 9,12iCHR* (CODE Y4+1--B) 

4905 GOSUB P 

4907 PRINT AT 9,6:CHR* (CODE VI+12B) 

4910 GOSUB P ■'*+l^tJ) 

4915 PRINT AT 9,12-y* 

1920 GQSUB F 

1925 RETURN 

1930 PRINT AT 9 -Jii n-r ..^ 

ra B061JB P ' • ■ " ' = ."•■:«■, <C0DE «,E 

«40 PRINT AT 9,6; 

1945 GOSUB P 

4950 PRINT AT 9,12 

1955 LET Y*=Y:E(i,+ 

4960 RETURN 



code D9 fie<l. The AF psir 
pair using EX AF,AF (opcode 

the /a/uesofcerlaln register 
1 single exchange instrucli 

lion EX DE.HL (opcode EB he 



These two values can be eii- 
changefl with EX |SP),HL (op- 
code E3 he>). This lakes the 



AT 9,12!CHRJ (CODE 
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ho AND 2A0cifmman 
estQ [he righrisRLi t 



V follows 'B' in the ZXai 



"8. 5000 LET X=0 

ses 5005 FOR I=B TO 1 STEP -I 
an 5010 LET X = )(+(CDDE Y*(I)-2B)»(' 
■S3 5020 NEXT I 

5030 PRINT AT 9,22;-= '■ - x 
iins 5040 RETURN ' 

^° 6000 PRINT AT 21,2; "PRESS ANY >■■ 
,le, 6010 IF IN(<EY*="" THEN GOTO 601 
et- 6020 RETURN 
;;v 6100 PRINT AT 2,1;B* 
]„. 6105 PRINT AT 4,2;A*(C) 
ns 6110 PRINT fiT 7,1d,"(UJi , .. 
;^; 6115 PRINT AT B, 
to 6120 PRINT AT 9, 
i-. 6125 PRINT AT IC 
1° 6130 PRINT AT II 
er 6135 PRINT AT 13 
Us 6140 PRINT AT 14 
^l 6145 PRINT AT 15 
6150 PRINT AT 16 
< 6155 PRINT AT 17 
,g 6160 6DSUB P 
re 6165 PRINT AT 7,' 
'■ 6170 INPUT D 
'^ 6175 IF D<0 OR DJ255 
in 6185 GDSUB 4100 
^ 6190 PRINT AT 9,0;Ct*- ■■-at 9,2,00 

1 6195 PRINT AT 9,5; Y* 
d 6200 LET Zt=Y* 
° 6205 PRINT AT 15,0; "INPUT A" 
,r 6210 INPUT D 

^ 6215 IF D<1 OR D>255 OR D--.:INT D THEN GOTO i"?! 
^ 6220 BOSUB 4100 

£ 6225 PRINT AT 15,0:C*;AT 15,12:VJ;AT 15 --DD 
^ 6235 LET X=12e ' ' 

] 6330 LET R*=CHR* (CODE Z»+X)-fCHR« (CODE ltC^)+' 

CHRJ (CODE Z*(3)+X)+CHR* (CODE Z«<4)*X> 
^ 6355 LET S*=CHR* (CODE Z* (51 +X) -fCHR* (CODE Z»(< 
, X)*CHR* (CODE Z*(7)+XH'CHR* (CODE 2*(S>*X) 
' 6340 LET T»=CHR* (CODE y*(5)+X)+ CHR* (CODE Y* 
, X)+CHR* (CODE V*(7)+X>+CHR* (CODE Y»(B)+X) 
; 6345 RETURN 
1 6400 PRINT AT 15,16iT* 
' 6405 GOSUB P 

6410 PRINT AT 15,16;" "-AT 15,23:Tf 

6415 GDSUB P 

6420 PRINT AT 9,]2jR» 

6425 BOSUB P 

6430 PRINT AT 9,12;" " ; AT 1S,16:R* 

6435 GDSUB P 

6440 PRINT AT 9,16;" " ; AT 9 12-Z*(5 TO ) 

6445 GOSUB P 

6450 PRINT AT 15,23;C»;AT 9,16-TJ 

6455 LET T»=Z*(5 TO ) " 

6460 LET R*=YS(5 TO ) 

6465 LET y*=Y« ( TO 4>+ZS( TO 4) 

6470 LET Z*=T*+R« 



IIING AUOUSTvSEPTEMBEn ISi 



6472 
M75 
S4B0 
6500 



GOSUB P 
PRINT AT 9, 
RETURN 
PRINT AT IS 
BQSUB P 
PRINT AT 15 
GOSUB P 
PRINT AT 9, . 
GOSUB P 
PRINT AT 9, : 
GDSUB P 
PRINT AT 9, 1 
GOSUB P 



PRIN 



AT , 



6530 
6535 
i>540 
6545 
6550 
i555 
6560 
65t>5 
4570 
6572 
6575 
6560 
7000 
7005 
7010 
7020 
7030 
7040 
7045 
7047 
7050 
7055 
70faO 

Fig. 2. Evichai 

of Shift/rot 

4000 FOR 1 = 1 

4S00 PRINT AT 9, 12; 

4330 PRINT AT 9 

4345 FOR J = l TO 40 

4400 PRINT 



LET T»: 

LET R*=Y*(B TO ) 

LET Y*=y«( TO 4)+T* 

LET Z«=R«+Z4( TO 4) 

GOSUB P 

PRINT AT 9,12;7*;AT 15, 12' 

RETURN 

LET X=Ci 

FOR I-B TO 1 STEP -1 

LET X = X+(CDDE Z*(I)-2a)»(''' 

NEXT I 

PRINT AT 9,23; "= "; 

LET X=>=0 

FOR 1=8 TD 1 STEP - 

LET X=X+{CODE ¥*(!)■ 

NEXT I 

PRINT AT 15,23; ■■= '■ ■ 

RETURN 



00 



2j" 



AT IS.lfc;-, 



■':AT 9, 



4500 PRINT AT 15 

4510 PRINT AT 15 

4520 PRINT AT 9, 

4530 PRINT AT 13 

4540 LET 

4600 PRINT AT 9, 19 

4610 PRINT AT 9, 19 

4430 FOR J = l TO 40 

4700 PRINT AT 9,24; 

AT 15,16;V«(8) 

4750 PRINT AT 15, li 

4760 PRINT AT 15, 1< 

4770 PRINT AT 9,24} 

47S0 PRINT AT 9,12;E[AT 15, 

47B5 LET V»=STR* E+Y* ( TO 7 

laOO PRINT AT 9,6;" " ;AT 13 




PAPER OsE 
PAPER OsYf 
7; PAPER 0; 



16; INK 7; PAPER 0;E 
16; " "! AT 9,19; INK 
; " ":AT 15,16; INK 
16;Y*(1! :AT 9,19; I 
2 TO )+ STR* E 

NK 7; PAPER 0;Y 
"SAT 9,24; INK 

";AT 9,12; INK 



INK 7; PAPER 0;E 
"fftT 9,12; INK 7; PAPER 0:E 
[NK 7; PAPER a;Y* 



INK 7; PAPER 0;V*< 
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4B15 PRINT AT 


9,23; INR 7 


PAPER 0: "0" 






4B25 PRINT AT 


9,23;" ";AT 


9,19! INK 7: PAPER 


0;"0" 


4S50 PRINT OT 


9,24;" ";AT 


15,16; INK 7; PAPER 


0;Y*(a) 




4B60 PRINT AT 


9,6; INK 7; 


PAPER 0;"0" 






4B70 PRINT AT 


9,6;" ";AT 9,12; INK 7; PAPER 


;"0" 




4B90 PRINT AT 


9,12; INK 7 


PAPER OjY*(l) 






4907 PRINT AT 


9,6; INK 7; 


PAPER O)YS(l) 






4930 PRINT AT 


9,24i" ";AT 


9,12; INK 7; PAPER 


0;Y*<B> 




4940 PRINT AT 


9,6;" '■;AT 9,12; INK Tj PAPER 


;Y*<1) 




5010 LET X-X+ 


CODE Y*{I!-4B)«(2''-(9-I) ) 






6330 LET R*=Z*( TD 4) 








6335 LET B*=2*(5 TO ) 








6340 LET T»=Y*(5 TO ) 








6400 PRINT AT 


15,16i INK 7; PAPER 0;T* 






6410 PRINT AT 


15,16;" 


;AT 15,23! INK 7; PAPER Oj T* 




6420 PRINT AT 


9,12; INK 7 


PAPER 0;R* 






6430 PRINT AT 


9,12;" 


AT 15,16; INK 7; PAPER OsRt 




6440 PRINT AT 


9,16;" 


AT 9,12j INK 7l PAPER 0; S« 




6450 PRINT AT 


15,23;C«;AT 


19,16; INK 7; PAPER 


0:T* 




6310 PRINT AT 


15,16;" 


;at 15,23; INK 7} PAPER 0;T» 




6520 PRINT AT 


9,16; INK 7 


PAPER OjS* 






6530 PRINT AT 


9,16;" 


AT 15,16; INK 7; PAPER 0;S-r 




6550 PRINT AT 


15,23iC*;AT 


9,12; INK 7; PAPER 


>:T5 




7010 LET X=X+ 


CODE Z*(i)-4a)»(2-(B-l) ) 






7047 LET X=X+ 


CODE Y«(I)-^ 


B!»(2-Me-I! ) 






Fig. 3. Opcode^ 


■for the Shi 


ft and Rotate instr 


ictitin^ 




RLCA 07 


RLA 17 


RRCA OF 


RRA IF 




RLC A CB07 


RL A CB17 


RKC A CBOF 


RR A CBIF 




RLC B c:boo 


RL B CBIO 


RRC B CBOB 


RR B CBia 




RLC C CBOl 


RL C CBH 


RRC C CBU9 


RR C CB19 




RLC D CB02 


RL D CB12 


RRC D CBOA 


RR D CBIA 




RLC E CBD-3 


RL E CB13 


RRC E CBDB 


RR D CBIB 




RLC H CB04 


RL H CB14 


RRC H CBOC 


RR H CBIC 




RLC L CB05 


RL L CBIS 


RRC L CBOD 


RR L CBID 




RLCiHL) CB06 


RL(HL) CB16 


RRC(HL) CBOE 


RLtHL) CBIE 




SLA A CB27 


SRA A 


CB2F SRL A 


CB3F 




SLA b CB20 


SRA B 


CB2B SRL B 


CB3B 




SLA C CB21 


SRA C 


CB29 SRL C 


CB39 




BLA D CB22 


SRA D 


CB2fi SRL D 


CB3A 




SLA E Ce23 


SRA E 


CB2B SRL E 


CB3B 




SLA H CB24 


SRA H 


CB2C SRL H 


CB3C 




SLA L CB25 


SRA L 


CB2D SRL L 


CB3D 




SLA(HL) CB26 


SRA(HL) 


CB2E SRL<HL) 


CB3E 




RLD 


ED6F 


RRD ED67 






( Al 1 opcade5 ci 


■e in heiiadecimsl) 






Fig, 4. Seme Us 


e-ful RGM Rdl 


tine.: 






G2BB - Keyboar 


d scanning r 


□Litlne; this returns a coded 1 




versipn o 


i the key in 


HL. To translate this to a 1 















I ZXPROCRflMMINC I 



to BC and call the routii 

':CE7 - Set FfiST mode 
Dfl2A - CLS routine 
iJCOE - SCROLL routine 
0F2B - Set SLOW mode 



03e5 - BEEP subroutine 

ODFE - SCROLL suhroutine (numbe 

0E44 - Clears the lower part of 

Q-f lines governed by the vsl 
™6E - Clears the ■qomm^^hd' area o-f 

Fig. 5. RSr commands 

RST 00 (opcode C7) - When yoL 



is+er HL content 



f lines jn b) 




hen wipes RAM 



RST OS (opcode CF> 



stops BASIC. 



routine is cal led. 
RST 10 (opcode D7) - The print routine 



RST IB (opcode DF) - Collects a character addres! 
system variable CH-ADD , and ( 
whether it is printable. 



RST 20 (opcode £B) - Used 
coUec- 



' EF) - Calls the floating point i 
space in RAM in ■ 



opcode FS) - Cre 



. BC. 



■ spa. 



RST L'B (opcode FF ) ~ The Ma; 



■ ne>it part of ■ 



Fig. 6. Print he.:atiecin.al 
Assembly language listing 




LD 


A, 2 




CALL 5633 


CDOllfa 


LD 


HL, 32000 






E,fl 


5F 




240 




SRL 


fl 


CB3F 


SRL 


A 


C:B3F 


SRL 


A 


CB3F 






CB3F 


CALL 


PRINT 


CD4E75 


LD 


A,E 






15 


E60F 




PRINT 


CD1E75 


RET 




C9 


zxai 


PRINT Sub 


routine 


ADD 


A, 28 


C6:iC 


RST 


IS 




RET 




C9 


Spec 


rum PRINT 


Routine 


ADD 


A,4B 






S3 


FE38 


JR 


C,+2 




ADD 


A, 7 


Cfe07 


RST 


18 


D7 


RET 




C9 



ZXBl PROGRAM Listing 





POKE 16388,47 

POKE 16389,117 
NEM 

Then type in, SAVE, 



LET X=300u5 

INPUT V 

PRINT «T 2i,0;X,Y 

SCROLL 

IF Y=-l THEN STOP 

POKE X,V 

LET X=X+1 

GOTO 20 



llo 



ing ! 



^n^"4i^^'^^*'''^^'^^'''^*'^''^'^^'^^'203,63,203,63,20:^,i.^ 
2U5, 78,117,123, 230. 15, 205, 78, 117, 201, 198,28, 215, 201,- 
NEW the machine code lo=,d^r. th«n ^„^^ , r, „. r., ,., 



I ZX PROGRAMMING I 



10 INPUT X 

20 PDKE 32000, X 

30 RfiND USR 30005 

« PRINT 

50 GaTO 10 



Type 



SAVE, 



I RUN 1 






10 CLEAR 29999 

20 LET M =30000 

30 READ y: IF v=^I THEN BDTO 50 

« POKE y.,Y-- LET m=« + I: GOTO 30 

50 INPUT "Enter a number (0-255) ■■•z 

W POKE 32000,2 

70 RANDOMIZE USR 30000 

BO PRIM-T 

W eOTO 50 

100 DATA 62,2.205,1,22,33,0,125 1-^6 95 

110 DATA 230, 240, 203, £.3, 203, 63, 203, 63 

120 DATA 203,63,205,79, 117, 123,230 15 

130 DATA 205,78,117,201,198,40,254,58 

140 DATA 56,2,198,7,215,201,-1 

Pig. 7. BASIC Error message de( 



in Fig. 6. Wi i 
CLEAR 29999 
and RUN th 




type 



11 



10 POKE 30000,207 

20 INPUT X 

30 POKE 30001 ,X 

40 RAND USR 3OOO0 (ZXBl) 

40 RANDOMIZE USR 30000 (Spectn 

RUN each time 





BYTE 




HIGHER 
NIBBLE 




LOWER 
NIBBLE 


III 111 



7 6 5 4 3 2 1 




ZX81 REVIEWS 



ZX81 soft 

Selection 

There's still '81 software being 

produced, and you can rely on Nick 

Pearce to hunt it out. 



andSCRSAVEandCOPVItQsave 5D COITIpenCliUm Bi 

or copy the cu-rent Hi-reE screen TSpCl SDPrOgramS a"' 

The piogram does have lim«a- 5D Compend.ur 




Stefan Schmidt 



resoiu^i'^" gcBphTtTs "ditplav is a demonstration display' which comes down in a lift which you 
availableon the ISKZXai giv- runs when the program has been are supposed to grab and 
ing the user access to a 256 by loaded. dispose of safely, but unless you 



PLOT, 100, ISOwiiisel hep e 
with the coord i nates 100 
Other commandE d 

UMPLOT, DRAW and UNDRAW 
(theendcnordinatesofthe n o 

'andSI 
TEXT I which writs 



1 6K are ioose to s; 

page 125 of tlie' Soeclmm They are written m BASiC ficul 

manual worlss with PLOT replac- although some have been cor 

ed with PRiNTUSR PLOT, but is piled using the PSS ptogfam, bul like Wash -n-SlosI 

Weed Attack is Ihe third sr 

BASIC but would run slowly. giam which sets out tb " 

There was one smell bug in tents. run by giant weeds by racing finish. A number of pla' 

my review copy, the command Wash-n-Slosh is the first of around applying weedkiller. bet and their winnil 

PRIt^T USER MEfulO which is three arcade games and is quite All three games ha./e on- recorded, 

supposed lo show how many good fun, Vou cannot pay your screen instniclions. Action is Finally, 21 -or-BuB' 

byles are free did not work, but restaurant bill, and so find generally fast and responsive, course a ZX81 implem 

eyerything else worked per- yourself in the kitchen washing and the ZX81 graphics have of the card game. Vou i 

fectly, dishes. There you rush up and been used to good effect. They an opponent or the cu 




^Tortoise Wise;^ 

""1 from a Parent wl " - - - 

David ste\ 



More lines from a Parent who Gets Left Behind, by 
David Stewart. 




to.-1 


r 


even 


reamt of giv 


g aroiind the h 


use before 


Iwent 


being almoB 


ijsele 




"'" 


anatom 


with a liiile h 


';"• 


lldit 
nenly. 
toimo. 


s: 


e upon me b 




ziz":! 


keel, 1 


had the title 




dvKhic 
napi 


only 


oystick 


be should have 
front of a 


,..„ 


..„ 


™™c 


..=US,„P 


EMBER, .8. 












^^^ 
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^SPECTRUM CRAPHICSB 



rting places in visual tern! 



Lightmagic — 
Graphics 
Designer g 

The Shape of things to come from New ™5I.X 
Generation Software? Colin Christmas 
puts you in the picture. 




software 
value that 


he same appeal 


Such 


rE'Sr 


deliberale LIGHTMAGIC 
Nigel Hicken from New Ger 

rnto my 4SK SpecKum, 


Magic 




ThaCufsor 


asmall circle Wl 


^empslon 


Cursor keys, » 
or Sinclair Jon 


EHt 


e this selection 
is displayed a 

ty, like others 


EDITOR 15 1 
work. The 
DESIGNER 


called SCF 
econd, called 



ing of objects on ih"^ 



■SPECTRUM CRAPHICSa 



ta lie nib type effect to a 

tior air brush. Each ef- 
Be start linglv enhanced 



LIGHTMAGIC also offers 

SCREEN. Bolh are, by now. The manual accompan' 
eEsential tools of the Grsphics LIGHTMAGIC gets full mark 



iraphics addicts in vour own 

inablas the user along with i 

Isavedataread on Erasm' 

Hum, COMP- Reducing. V 



BLOCK MODE allow 



TEXT IMODE and UOG M 
UDG characters lobe Dositii 



for LIGHTMAGIC at your fing 



fl the RAMTOP i/i 



:reens for use in 
■am, a CLEAR 
ifl to set RAM- 



t BRUSH MODE, 



RANDOMISE USER call i) 
display each Die ture.AIIsc 



No frills. No gimmicks. 
Just the serious business 
of having fun. 




V the problem only too « 



Somefimes you want to be serious and explore its 

capabilities. At others you just want to cut loose 

and zap a lew aliens or sharpen your game skills. 

Even try a bit of education. 

ersonal Software is the o 



Get to grips with it. Every quarter. 



'i'M'SMai 



SPECTRUM CAME 



Cribbage 

Ian A Stewart presents his version of 

the Londoner's favourite, the classic 

card game — Cribbage. 



Data structure 




c[™ed^in^an'o!'de^ DGSCrlptiOn Of 

uses the access main subroutinss 



ided in Ihe nor- 5730"A A" 

BLOAD"Enb- 5740"A A" 

■' ■'. Loading 5750'B B'' 

II lake aopro»- 5775 AT 2,28: ■■£■■ 

s, afta^ whfch 19,2S,"E" 

automalicBlly 7310 "GFJIK" 

a demonslra- 731 5 "HCDS" 

the crib boatd 7320 ■■A234567a9TJQK' 



The program's evaluated using EVALHAND and ce.ta 

Strategy enter!^ZXha'ndfn''cT;d(|''cV(7^'""- 

P'jf'sss ii a round of cribbege 1000 EVALHAND 
inalllgent decisions. The tlrs^il ° '" ' " " 



illeil by 51 



gram considers all pi 
■B of 4 cards chosen 





r 








edin 




If ills legal to do so, card CIS added to [he a'rav 5200 CRIBHAND 


2101 
nihe 




relumed. 




Display the crib on the screen and copy it from b( I and 
into hi 1 reedy for COUNT. 










ERASE ^'"""™ 






tn cards alreadv on table 










n = number of cards on table 






'^t 




1 = new total 


5350 


FACEDOWN =^^'''-'— "P-^i"- 


fmc^ 


2400 


SORT 




ln?eT-J^''^'^°'^''=%t,6 position (1 to Bi 






Bubble sort of band in hi 1 of lenath 1. 






-- 


!70O 


The human player is asked to b lav a card. 

Exl.i. via TOTAL routire, 

enter^nh = no, of cards piayed frgm 


5400 


FACEUP 


" 




bU = If card has been played 


5500 


MESSAGE 






Bill; hflo = 1 rf no card can be played 










win = mar if reached 121 points 








mo 


TOTAL 

TliB new runnina total is displayed and the score is 


5600 


CLEAR 






ente^ntol ''^'^^''^= Tunning total 


5700 


DRAWBOARD 










□raw the crib board down the right hand side ol ihe 






player = ZX or Man 










ZXPLAY 

The computer considers the effect of playing each of 
the cards in its hand by calling LAVCARD and applying 
some heuristic knowledge. The best canJ is then 
played. E.il is via the TOTAL routine. 


6000 


player = player who has scored 






enter:nc = no. of cards played from 

c| l.cSI 1 = cards in liand 

dl 1 = if card has been played 










■ 




Description of main program 




ilje 


3700 


I'elecT ■'«"-"»"»•=."""*. 


7000 


INITIALISATION 




Ving 




The buman player selects a card using the space and 
enter Keys. 


7400 


Arrays are DIMmed, user graphics defined, variables 

loaded and the pack constructed. 

START GAME 

Clear scores and cut for deal. 








TAHETURI^S 




SHUFFLE AND DEAL 




Juld 


4000 




The pack is randomly shuffled then the cards to be 
dealt are sorted to make life easier for everyone laler 
DISCARD CARDS 






Tbe routines MANPLAV and ZXPLAY are called 


7800 












The computer calls PICK2 to discard 2 cards then 








has been found, Tlie subroutine at 3400 is used lo lurn 




SELECT IS called twice for the human to do the same. 








the cards oi/er wben a total of 3 1 has been reached. 




Afterwards the arrays are rearranged to remove gaps 








4400 resets the total to 0. 




PLAYAROUIMD 




s 




Bnteiidit = dealer (ZX or Man) 
eiit; done = 1 if all cards played 




First CUT is called to complete the hand before 
TAKETURNS and SHOW ere called to actually play the 






4500 


show"'" ~ '"'"'^' '* ^ '''^^^' ^^^ '^°" 

T^^^I-andB are displayed on the screen and their score 


8200 


WINI^ER 

and restart. ^ 










9000 


INSTRUCTIONS 






4700 


COUNT 

Prims the score for a hand on the screen 

If muggln's rule is in force, the player is asked to enter 




VflhablB i$ controls whether or not instructions are 
GRAPHICS DATA 






,.„ 


his own score, 

enleomuB = 1 if muggin's rule 

cut"""'-""""-™ 

The pack s cut by either ZX or Man depending on Ihe 
VB lable player. The card is displayed and made the Sth 


9990 


MICRODRIVE routines for saving piogrsm 
















1 REM K««)II«<I««K><<««{(«.|«««{| 












lUnd.r lined irh«r»c t»r »« 




,. 


MANHAND 

c = number of cards In hand 
ZXHANO 


• 


IP DEr FN t(x)-(«j9)»i0.u<ia) 

30 DEF FN .(«1.10«(x-INT (xJl 1 
6B GO TO 7000 f 
5O0 REM " ^. ======. .=_ = . J 




"~ 


c - number of cards in hand 


" 


-==== ==—- PICK 2 CARDS 


^ 


^^^ 








" 


) 
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365 


FOR j=.l 


TO 5 


ST-g 






5-5 


LET >.=1 


: LET 


3B0 


FOR x=l 


TO 6 


5GS 


IF x-i 


OR x-j 



395 IF i (,.)-3 THEM I 

(•00 LET y^yl 

610 NE^T X 

620 on SUB EUALHAND 



LET I 



613 IF c(l»-5 OR dtjl=5 THEN L 
ET cr=cr*2 

630 IF dCil m (j )-]5 THEN LET c 
r-crtZ 

632 IF drbug THEN PRINT : FOR 



TO ' 



tINT I 



653 


IF dlr-1 THEN LET 




^660 


3 665 
LET B=B-cr 




665 


IF B>i.aK THEN LET 


ni.x-ii: 


ET t 


l)-i: LET t(2)-j: 


F d>bug 




PRINT -x*; 




670 


WEXT j : NEXT i 




673 


LET y-0 




680 


LET x-t(l): GO SUB 


ERASE 


6es 




ERASE 


690 


PRINT AT 7, Si" READY ■ 


695 


RETURN 




= — 


==._=.^, EVALUATE A 


HAND 


1070 


LET p'B: LET f-0: LET f I -4 




IF tDt-15 THEN LET 


-f-2 


1120 


FOR x-I TO c-1 




1130 


FOR y-x41 TO c 




1140 


IF hlxl.h.xl THEN 


LET p-p. 


1150 


IF l(xl+i(yl=15 THEN LET 1 










IF c<3 THEN GO TO 


1720 


1160 


LET t«0 






FOR 1=1 TO c 




11B0 


IF 2=x OR i=y THEN 


GO TO 1 








1190 


LET *-i(i)*t 




1200 


•JEXT 2 




1310 


IF t=13 THEN LET f 


=♦.2 


1220 


NEXT y: NEXT x 





13'10 FOR x = l TO 4 



230 


IF tDt-1 (xl-15 


THEN LET 


'2 












=0 






270 


NEXT X 




280 


IF c-l THEN G 


TO 1400 


290 


IF tot-l(5)-13 


THEN LET 


*2 






300 


IF tl=4 AND h* 


5J=h»ll) 



N LET f 1=5 

1310 IF +1=4 AND crib=l THEN LE 

T fl=0: REM flush in crib must b 

e 5 cards 

1400 LET x-l: LET =-0 

1410 IF xJ3 THEN RETURN 

1420 LET r=l: LET d=l 

1430 IF h(xH)-h(xlH THEN LET 

r-r<l: GO TO 1490 

1440 IF h(x+l)>h(x) THEN GO TO 

1470 

1430 LET d-d*l: IF di:>3 THEN GO 



1460 GO TO 1491 
1470 IF r>rlen 
: IF r=2 THEN 
14S0 LET K-K+l; 
1490 LET x-x*l 
TO 1430 
1300 IF r>rlen 
: IF r-Z THEN 
1510 RETURN 
2000 REH ===— . 



THEN LET c 



THEN LET s-5 
LET a^B-d 
GO TO 1410 



THEN LET ! 



= LAY CARD ON TABLE 
a: LET 5=0 

=FN t(cl 

•ct>31 THEN LET 3=-i 

2013 LET n=r. + l; LET t(n)=c 

2020 LET t=tDt*ct: IF t=15 OR t' 

31 THEN LET s=2 

2022 IF n=I THEN RETURN 

2023 IF ABS (t(n-l)-cJ>=n THEN 
RETURN 

2026 REM #♦* any pairs? 

2030 FOR x=tl-l TO 1 STEP -1 

2040 IF tInlOtlx) THEN GO TO 2 

100 

2030 LET p=p+2 

2060 NEXT X 

2100 IF p=6 THEN LET p=12 

2110 IF p=4 THEN LET p=6 

2113 LET E=5tp 

2120 IF p>0 THEN RETURN 

2130 REN »»» no pairs, check runs 

22flO IF n<3 THEN RETURN 



SPECTRUM CAME I 



2210 FOR 1=3 
2220 LET y-1 
3330 FOR x=n 

2250 NEXT n 
2270 GO SUB ! 
2330 LET r-1 
2310 FOR x-1 
2350 IF hlxX 
TO 2300 
2360 NEXT n 
2370 IF rJp 1 
23B0 NEXT 1 
2385 LET b=Bt 
2390 RETURN 
2400 REM '==- 



2110 LET 1-0 
2120 FOR K-1 1 
2130 IF hlx) >r 
h(Kl : LET h(x) 



THEN GO 



THEN LET 



■tJl 



2110 NEXT K 

2130 IF z<>0 THEN GO TO 2110 

2460 RETURN 

2700 REM ====«: ^^^====^^ 

■—=====-— MANPLAY human plays 

a card 
2710 IF nh-1 THEN LET hgo-l; PR 
INT AT 6,9;- GO ■: RETURN 

2715 LET iii«-*Select a card using 

SPACE-tENTER-: GO SUB MESSAGE 
2720 LET c«1: LET k=1 : GO SUB SE 
LECT 

2710 IF b(xl<>0 THEN GO TO 3763 
2712 IF tot<22 THEN GO TO 2720 
2715 PRINT AT 20,x»1-11 -GO?' 
2717 LET nS^'ENTER again If you 
can't play,-; GO SUB MESSAGE 
2730 LET hgo^x: GO SUB SELECT 
2755 PRINT AT 20,hgo*1-1j- "; 

2760 IF hgoOx THEN GO TO 2710 
3762 IF totOafe THEN LET safe= 
tot 

2763 RETURN 

2765 LET k->t: BEEP .02,15 
2770 LET c-alkl: GO SUB LAYCARD 
2775 IF 5<0 THEN BEEP .2,20: LE 
T m«=-Total nust be less than 32 
•: GO SUB message: go to 2720 



?7B3 LET 



LET t 



2790 LET x-k: LET y=16 

2B0a GO SUB ERASE 

2B20 LET K=nh: LET y=8 

2B30 LET x«-r»Icl: LET y«~a» 



2730 IF 3=0 THEN RETURN 

2910 PRINT AT fi,9i--for -Js 

2955 OO SUB UPDATE 

2960 RETURN 

3200 REM =.-======^======. 

==■=-==-===" 2X PLAYS A Ct 



3220 IF nr=1 THEN LET 

TURN 

3225 LET m»=--: GO SUB 

3230 IF debu9=I THEN PRINT ttl;A 

T 0,0|n*|AT 0,01 

3210 LET i»ax = -9: LET xl=0 

3250 FOR i'l TO 1 

3260 IF dli)<0 THEN GO TO 3500: 

REM already played 
3270 LET c-t ( 1 I 
3280 GO SUB LAYCARD: IF 5<0 THEN 

GO TO 3300: REM Illegal 
3290 LET n-n-l: LET H 1 ) =s : REM 
unplay and save scor» 
3300 REM special rules 
3305 IF t+c-31 AND t<5afe THEN 
LET s=3-l 
3310 LET s-B*(t>I3)-(t=21)+( t>=s 



3315 


IF n>0 


THEN 


GO TO 3100 




FDR j = 


TO 1 






3330 


IF i=j 


OR d( 


) <0 THEN 


GO T 










3310 


IF to 


5 AND 


•dljl=13 THEN 




5 = 5+2 








3350 


IF ABS 


(c-cl 


) ) <2 THEN 


LET 














NEXT j 








3390 


GO TO 


:iB0 






3100 


IF ABS 


(t (n) 


cl>2 THEN 


GO 


TO 3450 








3410 


FOR i = 


TO 1 






3120 




OR d (j 


) <0 THEN 




D 3410 








3130 


IF ABS 


(tin) 




HEN 






<32 THEN LET 5= 


s«2 


3410 


















31*0 


IP 5>=Bax THE 


N LET nax 


= 5: 


3490 


IF deb 


g THEN 


PRINT HI 


tc|- 



3500 NEXT I 

3530 IF xl=0 THEN LET cga=l: 
INT AT 6,9(- 60 -; RETURN 
3560 LET c=c(xl); LET t-tnttFh 
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3370 LET n-n*l: LET tlnl-c 

35B0 LET tnt»t: LET 6=i(«l) 

3390 LET nc=ncH: LET d(«l)=-5i 

3600 LET K=nc: LET y-0 

3610 LET K«=r*(cl: LET y«=c:»(!ill 

3620 BEEP .02,12: GO SUB FACEUP 

3630 LET player=ZK 

3610 60 TO TOTAL 

370H REM -=-'.= -============^=^^ = 

========,==== SELECT CARD 



3720 PRINT AT 21,K»4-3; FLASH li 

3723 IF INKEY«<>" THEN GO TO 3 

725 

3730 IF CODE INKEY«'13 THEN GO 

TO 3800 

3750 IF INKEYCO* ■ THEN GO TO 

3730 

3760 PRINT AT Sl,x«4-3C "i 

3770 LET x-x.l: IF k>c THEN LET 

3790 GO TO 3720 

3800 PRINT AT 21,x#4-3I* "i 

3B10 RETURN 

4000 REM ==-"-==— ==.===^===-;^^ 

==*'^===="=" TAKE TURNS 

4050 LET nh=0: LET nc-0 

4065 LET 5afe=31 

4flB0 GO SUB 4400 

40^-0 IF dIrOzK THEN GO TO 4200 

) REM human 

1 IF dnr.e=l THEN RETURN 



130 IF I 



t=3t 



RETURN 
I GO SUB ' 



GO TO 4200 

I IF cgQ=0 THEN GO TO 4200 
r IF hgo=0 THEN GO TO 4100 
' LET s=l; GO SUB TOTAL; IF ^ 

in>0 THEN RETURN 

4170 GO SUB 4300 

4200 REM roBiputer 

4205 IF dane=^l THEN RETURN 

4210 GO SUB ZXPLAY 

4220 IF win>0 THEN RETURN 

4230 IF tot=31 THEN GO SUB 4300 

4240 IF hgn=0 THEN GO TO 4100 
4230 IF C3O=0 THEN GO TO 4200 
4260 LET 5=1: GO SUB TOTAL: IF m 
in30 THEN RETURN 
1 SUB 4300 



I GO TO ' 



100 



4325 GO SUB FACEDOWN 
4330 NEXT X 
4340 LET y=S 



r FOR i 



TO I 



4360 GO SUB FACEDOWN 

4370 NEXT x 

4400 REM JHHHt NEXT ROUND »♦♦*» 

4405 LET dDne-0: LET s'0 

4420 LET tat=0: LET n=0 

4430 IF nh=4 AND n<:=4 THEN LET 



1440 LET 



cgQ-0: LET hgo=C 



"""'""==""' SHOW HANDG AND COUN 

4310 PRINT tlliAT 0,0in«| 

4515 LET c->5: LET rl.n=Z 

4520 LET )(=1B: GO SUB CLEAR 

4530 IF dlr=zK THEN GO TO 4600 

4340 FDR )i = l TO 5 

4350 LET h(«l=c(x): LET h« f k ) =c« 

4360 NEXT X 

4570 LET up = l: LET c=4: GO i^UB Z 

XHAND 

GO SUB MESSAGE 

45B0 LET player^ix: GO SUB COUNT 

43S3 IF Hln THEN RETURN 

4390 IF dlr=zx THEN GO TO 4660 

4600 LET BiS-'Counting your hand - 

: GO SUB MESSAGE 

4605 FOR K=l TO 5 

4610 LET hf»)-a(x): LET h»l«)=s 



4620 NEXT X 

4625 LET t-' 

4630 GO SUB 

4640 LET plB 



GO SUB COUN 



4643 IF Mln THEN RETURN 
4630 IF dlr=ix THEN 60 TO 

4660 LET m«=-Ready to see ■ 
ib ■? ■: BO SUB MESSAGE 

4661 PAUSE 

4665 LET K=I8; GO SUB CLEAF 

4670 GO SUB CRIBHAND 

4673 LET »*=-CDunting point 

the crib-: GO SUB MESSAGE 

4680 GO SUB COUNT 

4690 RETURN 

4700 REM =--===-==-====^=== = 

== — == — ==^= COUNT HAND h(l 



4705 LET nol 

4710 FOR x-1 TO 5 

4715 IF K<3 AND h 



LET ■ 
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'=e*<5) THEN LET nob-1 

4723 LET ill) -FN tlhlxJJ 

1735 LET tot=tnt + i (i,) 

1740 NEXT K 

4730 LET 1=3: 60 SUB SORT 

4760 LET c-5: GO SUB EVflLHflND 

4765 PRINT 

477H LET m«=": GO SUB MESSAGE 

1773 IF piayer^zx OR NOT mug THE 

N GO TO 1B3a 



I OR 55>30 THEN GO T 
•»p*ttf l+nob THEN LE 



4345 PRINT 



I THEN PRIN 
r THEN PRIN- 

l>e THEN PRii 
>0 THEN PRINl 



) GO SUB message: go sub i 



' CUT PACK aak, 



1913 IF player^man THEN GO SUl 

message: pause 30: go to 4930 

49Z0 LET mW^-Presg any Uey to c 
t the pack.-: GD SUB MESSAGE 
4925 IF INKEY*--- THEN GO TO ' 

•=RND*404-12.3 



1935 LET k = ll 
1910 IF U's THEN 
4943 LET h*^5*(FN 
19SB LET ! 



4953 LET x-K-.ZS: LET y=7 

4960 GO SUB FACEUP 

4965 LET al31=lf: LET aCIB)=kS 

4970 LET cl31-k: LET c«(5)=k« 

4975 LET e(3)-U: LET eC(5)=k« 

49B0 RETURN 

4985 LET el51=k: LET e*(31-k« 

3000 REM •"'c=»-==»_B„_^==.__- 

=== — ==.„=== DISPLAY HUMAN HAND 

5020 FOR x-1 TO c 

5030 LET x«-r«(a(xll: LET y»=a* ( 

3040 GO SUB FACEUP 
3050 NEXT x: RETURN 
3100 REM =="-==«—=»=. = = = = = . = ^^ = 

===^===^^==' DISPLAY ZX HAND 

3110 LET y=0 

5120 FOR x-1 TO c 

5130 LET x«=r*(irrxl): LET /»=c5( 

5130 GO SUB FACEUP 
517S NEXT x: RETURN 
5200 REM ===--=======.= = ==^=^ = ^,^ 

==""=="===== DISPLAY CRIB and no 

py to hi) 

5210 LET crlb=l; LET y=ii: if dl 

I--IX THEN LET y=0 

3220 FOR x=l TO 3 

5230 LET htx)=e(*J: LET h»(.l-e« 

5240 LET x«=r«(e(x)): LET y»-e« I 

5250 IF x^5 THEN GO SUB FACEUP 
3270 NEVT k: return 

5300 REM =========-==a===_^=i^^_ 

""='"="="=""""" ERASE CARD 

5310 PAPER 4: GO TO 5370 

5350 REM — ="==-===^=^„==^^^ = ^^ 

'"""=""'"' PRINT FACEDOWN CARD 



LET y*=x«: GO 



3360 PAPER 2 
5370 LET x«=* 
O 5420 

="='"="'==- PRINT FACEUP Cfl 

5410 PAPER 7; IF y»=s«(l) OR 

=«(3) THEN INK 2 

5420 LET xl-4»x-4 

5440 PRINT AT y,xl;x*l' -(A 

3450 PRINT AT y+2,xli- -JA 
3,Kli- -ly* 

5460 PRINT AT y*4,)il;- ■ ; x» 
5470 PAPER 4: INK 0: RETURN 
5300 REM -=-"==.=.— :.===^ = ^, 



I SPECTRUM CAME I 



==""=-""- PRINT MESSAGE 
3310 PRINT WHAT l.0In»|flT J 



= CLEAR THE SCREEN 



3630 PAPER 1: PRINT AT 0,0; 
5650 FOR Y-1 TO 22: PRINT TAB x: 

NEXT y 
H69B PRINT AT 0,0: RETURN 
3700 REN ====--==^==========^==^ 

==,= ====^^==. DRfly CRIB BOARD 

Vdu 



3710 PRINT AT 0,251 PAPER 6) 






3715 PRINT TAB 251 


PAPER 6i • 


3720 FOR y-1 TO fi 




5730 PRINT TAB 25i 


PAPER 6!- 


:: ■: REM GRAPHICS 




S710 PRINT TAB 25i 


PAPER 6i- 


:: ■: rem graphics 




S750 PRINT TAB 25! 


PAPER 6i ■ 


■• •: REN GRAPHICS 




5760 NEXT y 




3765 PRINT TAB 25i 


PAPER fii ■ 


3770 PRINT n«t : PAPER 6 


5775 PRINT AT 2,28 




• ■■: REN GRAPHICS 




5780 LET »*'-CRIBBAGE- 


B790 FOR K=l TO 8 




3000 PRINT AT 2«x>l 


,28;nClxl 


5010 NEXT X 





6005 IF B-0 THEN RETURN 

6010 BEEP .2,10 

6015 IF 5'0 THEN RETURN : REM e 

6020 LET ss-vlplayer) 
6030 IF ss>0 THEN GO SUB 6100 
6010 LET V (player I -s (player) 
6030 LET 5lplayer)''5(player) i-s 

6060 IF 5(playerl >120 THEN LET 

Mln=player: GO TO 60S5 

6070 LET aa-BlpIayer) 

60S0 GO SUB 6100 

6085 PRINT PAPER 6;AT 20,25is(m 

6090 PRINT PAPER fiJAT 20,31-(5( 

TX» >?'9)- 15(IK) >9) {B(7i() 

6093 RETURN 

6400 LET K=25: LET v=l 



LET ' 



THEN 



.ET ) 



6110 IF 5S>60 THEN LET S5-55-60 
6115 IF 55<31 THEN LET ss=31-es 
: GO TO 6410 

6420 LET 53-SB-30: LET )(=27: LET 
u=3: IF player=ix THEN LET >t=2 
•>: LET v = l 



I LET 



■mss'INT ( (5S-1 
INT y THEN LET ; 
OVER II PAPER 6 



7020 


LET 


x-a: LET y 


-0: LET 1-0: 


LET 










7025 

7030 


DIM 




h«(fi): 


DIM , 


DIM 


a. 6): DIM 


3«(6): 


DIM b 






numapiB darn 






7035 


VIM 


c(6l: DIM 


i;«(6l : 


DIM d 










7010 


DIM 


crib hand 


*..6.: 




7030 


DIM 


9(21: DIM 


sl2) : 


DIM v( 


) : DIM v«(5) : REM s 






7055 


DIM 


p(52): DIt 


t (12) 


REM 




able 






7060 


INPUT -Malcome 


to CR 


IBBAGE 


■"Do you Hant i nat 




ns 7 ■ 


i« 










7070 


IF 


•(I)--y" OR i«=- 


Y- THEh 




SUB 


9000: 60 T 


7080 




7075 


PRl 


•tT tllCPlea 




(or a 










70S0 


FDR 


'-1 TO 13: 


READ 


* 


7085 


FOR 


y=0 TO 7: 


READ I 




7090 


POK 








7095 


NEXT y: NEXT x 






7100 


LET 


PICK2 


500 




7105 


LET 


EVALHAND = 


1000 






LET 


LAYCARD - 






7113 


LET 




2100 




7120 


LET 


MANPLAY - 


2700 




7125 


LET 




2900 




7130 


LET 


ZXPLAY 


3200 




7135 


LET 


SELECT 






7140 


LET 


TAKETURNS- 


1000 




7115 






4500 




7150 


LET 


COUNT 


1700 






LET 








7160 


LET 


HANHAND = 


3000 





augu^^eSembe^sbs 



I SPECTRUM CAME 



?165 LET ZXHAND - HIBO 

7170 LET CRIBHANS - 3200 

717S LET ERASE • SZ00 

71S0 LET FACEDOWN « 3330 

71S5 LET FACEUP = SIBB 

7190 LET MESSAGE = 5300 

7195 LET CLEAR = 5600 

7200 LET DRAUBOARD" 5700 



72I( 



LET UPDATE 



7220 REM 

7300 LET ix-l: LET »an-2 

7305 REM ***** GRAPHICS **HHHf 

7310 LET v»=-^--.-r-; REM PEGS 

7315 LET s*''-V+»*-: REM SUITS 

7320 LET r«--A231567S91DJ0K-: REM 
RANKS 

7330 LET n«=' 

■: REM 32 spaces 

7335 LET o»-"PrPS5 aov key to no 



THEN 



7340 IF i< 

7350 REM construct pack 

7355 LET z-0 

73fi0 FOR x>-l TO 13 

7365 FDR y=.l TO .4 STEP . 

7370 LET i-iH: LET p(i)=, 

7375 NEXT y 

7380 NEXT « 

7390 LET g (man 1^0: LET glj 

7400 REM i 

***♦♦♦**♦*** START . 

7404 LET miig=0 



HEN LET mug^l 

7406 GO SUB DRAUBOARO 

7410 PRINT MliAT 0,0i-l 



7335 LET iii«=-Shuf*lii 
7540 60 SUB MESSAGE 
7610 FOR K'l TO 31 
7620 LET y-INT (RND* 
ET 7=p(x) : LET plxl-j 



GO SUB MESSAGE 



7630 NEXT X 

7635 LET n«' 

7640 REM SDi 

7630 FOR >•- 1 TO 7 STEP 6 

7635 LET 1=0 

7660 FOR K=y TO yt4 

7670 IF pfK) >p(>: + I) THEN LET 

x: LET j=p(i(l: LET p(xl-p(»m 



>fl THEN GO TO 



LET 1 



LET p(x*l, 

7690 NEXT 

7635 

7690 NEXT y 

7700 REM deal 

7710 LET i=0; LET j. 

7720 IF dlr'iK THEN 

ET J=0 

7730 FOR x-1 TO 6 

7740 LET y-i: GO SUB FACEDOWN 

7750 LET cl>i) = INT pin): LET c«(k 

)=S«(FN s(plK)) ) 

7760 LET d(x)'FN tlcln)! 

7770 LET y-j: GO SUB FACEDOWN 

77B0 LET a(xl=INT plxt-AH LET aS 

(>(»-B«(FN slp()l»6l ) 1 

7790 LET bfx)=l 

7793 NEXT X 

»»I»II»llf » » DISCARD INTO CRIB 

7900 LET c=6: LET y-ls: GO SUB M 

ANHAND 

7S05 IF debug THEN GO SUB ZXHAN 



7420 


LET 


s(ix)=0: LET s( 


ii.an) = 




LET vlll 


-0: LET «(21 








7423 


LET 


dlr-ix: LET 


5-0 


LET 








LET «in=0 








^4^0 


LET 


x=2: GO SUB 


CUT 


LET 


5= 


7435 


PAUSE 50 








7440 


LET 




LET 


i = 5: 


on 


SUB 












74 S0 


IF 3<K THEN LET dl 


=man 






PAUSE 50: LET x 








CLEAR 










7300 


REM 


KI«KII«II«»)III *JHr **1tt**** 














7310 


LET 


m*—l am- 








7520 


IF dlr^Man THEN 


LET m»= 


Yn 












7523 


LET 


iii«=in»«- the 


dea 


er- 




7530 


PR I 


T H0IAT 0,0 


ns; 


» 





7B20 LET ( 

tb=0 

7325 LET niax«-99: LET til 

T t(2)=6 

7S30 GO SUB PICK2 

7S40 LET m*-"Plck 2 cards 

SPACEtENTER-; GO SUB MESSI 

7B45 IF i«-*y- THEN GO SI 



lect: go sub faced 

x: GO SUB SELECT 

THEN GO SUB FACE 
x: GO SUB FACEDOWN 



I SPECTRUM CAME 



c+21-a 



= 3»(f 



(=+2) 1 



7920 LET alt()i*2) ) -a 

79 2B NEXT X 

793B LET y-l: LET i=l 

793S FOR )(=1 TO 6 

7940 IF t:(y)»a THEN GO 1 

7943 LET c(yl=c(xl: LET c 

79B0 LET c*(y)-c«ixl; LEI 
7935 IF a(x)=0 THEN BO 1 
?96a LET a(i)«a(xf: LET e 
(xl : LET 1=1*1 



7999 REM J 
** "*""' '* ' > ** PLAV CARDS 

8000 LET s-a: LET player=dlr 
8010 LET x"6: 60 SUB CUT 

8020 IF k-Il THEN LET iii*=-2 <Dr 
his heels-: GO SUB MESSAGE: LET 

s-z: GO SUB update: pause 40 

B03B LET c-4 

B040 LET y=16: GO SUB MANHAND 

S050 GO SUB TAKETURNS 

8060 IF Hin THEN GO TO S200 

B06S IF l*-'y THEN GO SUB 9200 

B07B GO SUB SHOW 

THEN GO TO B200 



8260 LET glpla>'er)=q(player( "-l 
B26S LET ■>•=□«: GO SUB MESSAGE 
8270 PAUSE 

B2S0 LET x'23: GO SUB CLEAR 
3290 PRINT AT 4, Bl 'SCORE" | AT 3, 

8300 PRINT AT 7,81 "You "tglinan) 
S310 PRINT AT 9,Si-ZK -Otzx) 
8320 INPUT -flnnther ^ame y/n "li 

B330 IF iii«=-n" OR iii«=-N* THEN ! 

8380 GO TO 7400 

9000 REM l( l |] I IH«»HI»H)mf«K >»«-i 

«1I»J I H ( I1 »»* INSTRUCTIONS 

9003 LET J«.-y' 

9010 CLS : PRINT ■ 6 card Cribt 

age is a game -fcir 2 players. Eat 

h 1b dealt. & cards2 a* nhich he 



r LET I 



the r 



9040 RETURN 

9060 LET nS^oC: GO SUB MESSAGE 

9065 PAUSE 

9070 CLS : GO SUB DRAWBOARD 



Is 



*lr' 



8120 LET x=Z3: GO SUB CLEAR 

SI30 IF i«<>-y' THEN GO TO 7500 

B140 INPUT -Cantlnue with Instru 

cttons?-! 1» 

8130 IF i»r.-Y- THEN LET iS^-y 

8160 GO TO 7300 

8200 REM #)i »K»imiK|i»iK)HI >*»»» 

«»I Ht]H»«IKH DINNER 

8210 LET iii*="CDngratulfltlC)n5, yo 

B220 IF wln = ix THEN LET m»=-Har. 



d lurk, I have Hon • • 
8230 PRINT HliAT 0,0im* 
8240 PRINT PAPER 6iAT 1 
ASH llu«<3) 

8250 FOR x-1 TO 60 STEP 
.02, x: NEXT X 



8,28! FL 
2: BEEP 



9083 PRINT 

""(twice round the board).' 
9090 LET iii«=-PresB SPACE tor a d 
emonstraHon, ": GD SUB MESSAGE 
9095 PAUSE 0: IF INKEV*<>- - THE 
N GO TO 9175 

9100 LET slnian)=0: LET 5(ixl-0 
9105 LET iii«=-Watch ny score... ■; 
GO SUB MESSAGE 

I FOR i"ix TO man 
Lis LET player-i: LET win-0 
■120 LET slplayer)=0: LET viplsy 
1-0 

30 LET s"INT (RND»10) : GO SUB 
■DATE + 15 

40 IF Mln"-0 THEN GO TO 9130 
45 PRINT PAPER 6IAT 18,28;v*( 

50 LET m«=-NoH Hatch your sror 



e-i GO SUB HESSAGE 
9135 NEXT 1 

91&0 LET mC-'HIt SPACE to see i 
e dvnn a^aln-: 6Q SUB MESSAGE: 
O TO 9B93 

9180 PRINT AT 9,01 "Uhen you ha. 
tn 9elecf--a card uep these I 
ya:-- -SPACE In oiave the arr-on, ■ 
■ENTER In play the card.' 



' PRir 



f nu^slns 



■Tnt«: 



15 . 



9403 PRINT "Tntal - 31 

949B PRINT -Farmins a run a, 
air-i'|-Mlth cards already c 



9500 PRINT ■ 



ble 



9195 RETURN 

9200 LET X-Z5; 60 BUB CLEAR 

■Ndh each player c 



9210 PRII 
tE" -the 
9220 PRII 



, beginning 
•d« the deal 



9230 PRINT • -A+ti 

er-'-cDuntc the t 

9240 GO SUB 930S; GO SUB 9400 

9245 LET bC^d*: bo SUB MESSAGE 

9250 PAUSE 0; LET x-25; GO SUB C 

9255 LET x=6: LET y-B: GO SUB FA 

CEDDUN 

9260 LET x-x-,25: LET y=7: LET - 

•=r«(c(3)); LET y»-c»151 

937B BO SUB FACEUP 

92B0 RETURN 

9300 PRINT AT 0,01 

9305 PRINT -FolntB are scored fa 

9310 PRINT -Each total of 15 

..2' 

9320 PRINT -2 nt a Uind (1 pair 

) 2' 

9330 PRINT '3 of a kind (3 pairs 

934B PRINT -4 n* a kind 16 pairs 

9330 PRINT -Run of 3 or mnre 1/ 

Card- 

9360 RETURN 

9400 PRINT -4 card +Iush 



. . 4' 

9410 PRINT -5 card *1( 

.. 3* 

9420 PRINT -Jack with 

9430 PRINT - card cut 

9440 RETURN 

9450 PRINT AT 0,0; -Noi 

lay a card* ' -al ternati 



9390 RETURN 
9600 DATA -a- 
9610 DATA 0,195, 



95,1 



9620 DATA 'b- 

9A30 DATA 0,193,1 

9640 DATA -c' 

9650 DATA 5fi,56,25>1,: 

6,36 

9660 DATA -d" 

9670 DATA 16,56,124,: 



i,254, : 



96B0 DATA -e" 
9690 DATA 0,24,: 
9700 DATA ■+■ 

9710 DATA 240,255,240,0,0,0,0,0 
9720 DATA -g- 

9730 DATA 0,0,0,0,240,255,240,0 
9740 DATA -h- 

9750 BATA 68,238,254,124,124,56, 
16,16 

9760 DATA ■ i ■ 

9770 DATA 13,255,15,0,0,0,0,0 
97B0 DATA -J ■ 

9790 DATA 0,0,0,0,15,255,15,0 
9800 DATA -k" 

9S10 DATA 28, 2B, 28,28,8,8,8,8 
9B20 DATA ' 
9830 DATA : 
16,56 

9B40 DATA 't" 

9850 DATA 0,76,210,82,82,82,7, 
-prog name 



16,56, 124,254,234,1 



9990 CLEAR : INPUT 

9995 ERASE -n'|l)n«; 

9996 SAVE ♦■iii*llln«: 
saved' 

9997 VERIFY «-n'!llnl 
' verified" 

9999 PAPER 7: BORDER 

Ls : LIST 



iINT . 




OBK SPECTRUM CAME I 





Dicey 

Challenge your computer or a f riem 
play Brian D Cook's game which is 
rage of Essex 




jOSK SPECTRUM CAMEJ 



4 BEEP .5,3: BEEP .35,0: CLS 

: PRINT AT 10,3; INK 3i BRIGHT 1 
!"DO VOU WANT INSTRUCTIONB?-iflT 
13,6; • (PRESS ' y- OR 'n' ) ■ 

5 IF INKEY*^-- THEN BO TO 2 

6 POKE Z365B,0: IF lNKEV«.->.- 
THEN GO SUB 9iea: GO TO 5 

7 GO SUB 9270 

e CLS : BORDER 1: ink 0: PAPE 



' PRII 



1 I PAPER 
NB SET U 

10 RESTORE W9BS 
EM graphics 

13 RANDOMIZE 



AT 10, B( FLASH li INK 
Pi -THE BOARD IS NOW BE 



": LET t*-- 

30 DIN dIS 

FOR n-1 TO 

, 1 1 "p : NEXT 

34 REM boa 



>: DIM r(3): DIM z« i 
»/•: LET b».'/\- 
,2,1}: FOR J-1 TO 5; 

a: READ p: let d(i,n 



50 FOR i=l 
NEXT l: FOR 
-2*itl: NEXT i 

6B LET el-a: LET .2=0: DIM -f(9 
li^FDR i-1 TO 9: LET ♦(i>.7: NEX 

65 CLS : IF plBy-2 THEN PRINT 
AT 10, 6i INK l; -PLAYER ONE COMM 

ENCES-: PAUSE 75 

66 IF play-1 AND gu-l THEN PR 
IMT AT lH,6f INK U -SPECTRUM COM 
MENCES-: PAUSE 75 




67 


IF 


pla 


y-1 AND go=-l 








10, 


Ai INI 












"AUSE 






70 


GO 


SUB 


9000: 


REM 


print 














B0 


GO 


SUB 


2000! 


REM pr-int 




cou 








9a 


GO 


SUS 


4500! 


REM Hln 


cherk 






qo 








200 


FOR 


r.= 


TO 10: FOR 1- 


1 10 5 








RND*6I : 






BEEP .01, INT 


(RND»10I 






GO 




3580: 


NEXT n 




220 


PR] 


NT 


T Zl.aj INK 1| 


PAPER 


6, 






F 


RET ROLL 





Z30 IF play=2 OR go=l THEN GO 
SUB 3000 

231 IF play=l AND 9D— 1 THEN G 
O SUB 3A0e: GO SUB 5000: GO SUB 

234 IF n^0 THEN GO TO 310 

235 FOR n-1 TO 10 
2^0 GO SUB 24aa 
250 GO SUB 350a 
255 NEXT n 

260 PRINT AT 21,0, jmk U PAPER 
*' ' SECOND ROLL 

270 IF pl.yr.2 OR gD=l THEN GO 
SUB 3000 

271 IF play-1 AND go=-l THEN o 
O SUB 3600: GO SUB 5000: bo SUB 
5500 

274 IF n-'0 THEN GO TO 310 

275 FOR n»l TO 10 
2B0 GO SUB 2400 

290 GO SUB ssaa 

295 NEXT n 

300 PRINT AT 21,0, INK li PAPER 

*' ■ THIRD ROLL 

310 OO SUB 3600 

313 IF pl«y-l AND go— 1 THEN 6 
O SUB 6300 
320 PRINT AT 21,0|i<« 
330 PRINT Nil INK 61 -Press any 






i48K SPECTRUM CAM EM 



310 PAUSE 0: cLs 

350 IF go=-l THEN GO TO 370 
360 IF play=Z THEN PRINT INK 
HAT 21,B;- PLAYER ONE 



365 eo TO 70 








370 IF p!ay-2 


THEN 


PRINT 


INK 


lAT zi.ai- 




PLAYER 


TWO 


371 IF play=l 


THEN 


PRINT 


NK 



380 GO TC 
2000 REM I 
2010 FOR ] 



BRIGHT 1( INK 0) PAPER 4[AT 19,6 

♦ U-llIii"--: NEXT 1 

20Z0 FOR i-1 TO 9 

20Z5 IF i»el OR i-eZ THEN NEXT 

2026 IF i-i0 THEN GO TO 2040 
2030 PRINT DUER II INK H PAPER 
6iAT y(i),x(«lil I |t:«)AT y(il+l, 
x(f(il);b«: NEXT i 
2040 IF NOT el AND NOT e2 THEN 
RETURN 

2050 LET dlBj 
p2-d 1 «p2«so 

2060 LET +lell-f (.D+displ 
2070 IF f (elKl THEN LET +(el) = 

2080 IF +(el>>13 THEN LET tiel) 

"13 

Z090 PRINT OVER 11 INK 11 PAPER 

*l,xt-f tell ) ;b* 

2100 IF NOT eZ THEN RETURN 

2110 LET f (»2}-f (e21+<]l9p2 

2120 IF fl»2)fl THEN LET f(e2>= 



=di9pl«ga: 



LET t 



2130 


IF f (e2)>13 


THEN LET t 


-13 






2140 


PRINT OVER 


IS INK 11 p 


6;A 




e2) 1 it«!AT y 




♦ (e2nib« 






RETURN 




2400 


REN reset d 


ice values 


2410 


FOR 1-1 TO 


o: LET r(t (i 


+ INT 


(RND*6l: NEXT i 


2420 


BEEP .01, IN 


T (RN1HH0I 




RETURN 




2999 


REN re-rol 1 




3000 


LET r»--': 


NPUT -Ente,. 



•- AND r»<>-n" Tl 
THEN SO TO 31i 



BO TO 3000 
3020 IF r*--^ 
3030 INPUT -H 



3040 LET m-INT m: IF n< 1 OR b,>5 

THEN GO TO 3030 

301S PRINT Hit FLASH H INK 2| P 



LET 


t(l)-lNT t(i) 








3055 


IF t (i 


<1 OR 


t (i) 


>3 THEN G 




3050 










3060 


NEXT 1 


RETURN 






3499 


REM pr 


nt die 


e VB 


<iei 




3500 




TO 5: 








*i-3 


INK 7 


PAPER 


0|p 


'■ 


NEXT 


3510 


RETURN 










3B99 


REN sort dice 


values 




JA00 


FOR n- 


TO 4: 


FOR 


i-I 


ID 3- 


3610 


IF rli 


<r(i*l 


THEN 


LCT «- 


rfil 


LET r 


i l-rli 


1): 


LFT 


r(i*I 














3620 
3*29 


NEXT i 
REM hDl 


NEXT 
d hDH 


■any 


o+ 


.™rh 



3630 DIM v(3,2): LET count-1: 
T a-0 

3640 FOR n-I TO 5 

3650 IF n-5 THEN GO TO 3700 

3660 FOR i-n TO 4 

3670 IF rH)-r(i*l) THEN LET 

unt-count +l: GO TO 3690 

36B0 GO TO 3700 

3690 NEXT i 

3790 LET a-B*!: LET vls,2)-CDii 

: LET u(a,l)-r (n> 

3710 LET n-n*cDunt-l: LET cou,, 



3720 


NEXT n 


37B9 


REM set .* to dice conb. 






3790 


DIM ■.•i32): LET el-0: let » 


Z-B: 


LET dt9pl-0: LET disp2-0 




IF i-d.BlOS THEN GO TO 38 



3804 LET diapl-„(i,2).i: LET 

3920 IF v(i,21<>4 AND V(2,2M 

THEN GO TO 3930 

3B21 REM «Durg 

38Z2 LET dl3pl-3: IF vll,3)-^ 



^48K SPECTRUM CAMEJ 



3B24 LET K»--FOUR -KSTR* v(l,l) 

rtND «(1,2)-^1*(STR« u(2,l) AMD 
v(3,2) -4) *-■,■: GO TD 393H 
3830 IF «{1,2K>3 AND v(l,21<)Z 
DH tf(2,2)<>3 AND v(2,2)<>2 OR u( 
l,21-v(2,Z) THEN GO TO 3950 
3B34 REM tull house 

3935 LET K«--FULL H0USE:3 -•(ETR 
• vll.l) AND «(1,Z)-3)*(STR» vl2 
,11 AND v(2,2>-3) j--sIe2 ■♦(STR* 
vll.j) AND w(1,2)-2)*(STR» wI2,1 
I AND v<2,2)-2>4--s- 

3939 FOR i-1 TO 2 

3940 IF v(i,2)-3 THEN LET diapl 
-«(i,2)-l: LET el-v(i, J) 

3943 IF v(i,2)-2 THEN LET diap2 
-vli,2)-l: LET e2-v ( i , 1 1 
3945 NEXT i: GO TO 3930 

3949 REM thrcBS 

3950 FOR i-1 TO 3: IF v(l,2l-3 T 
HEN LET di!ipl-vU,2t-l: LET el- 
wU,l): LET K«--THREE 'iBTR* v/ ( i 

3951 NEXT i 

3954 REM pair or tMO pair 

3955 LET a-0: FOR i-1 TO 5: IF v 
(i,2)-2 THEN LET a-atl: LET b-i 
^956 NEXT i 

ZB6B IF a-B THEM BO TD 3930 

3970 IF a-Z THEN GO TO 3900 

3990 LET el-v(b,il: LET lispl'vl 

b,21-l 

3B95 LET .»=-A PAIR OF ■ tSTR* v( 

b,lH"'3": GO TO 3930 

3900 LET a=0: FOR i=l TO 5 

3905 IF v(i,2l-2 AND NOT a THEN 



•1=2 / 



> 3 THEN LET 



3915 NEXT i 

3920 LET »«--TWO PAIRS, -tSTR* v 
(a,lH--'s I. -tSTR* v(b,ll + *'5- 
3925 LET <iiEpl=u(a,2)-l: LET el- 
lb, 2)-l: LET 



LET high^0: LE 



LET ( 



3929 REM set tot 

3930 LET total^C 
T loH''0: FOR i = I 
3910 LET total-t 



3950 IF total>lZ AND tQtal<23 TH 

EN GO TO 3995 

3753 IF total>25 THEN LET high= 



EN LET hlqh-2 

3965 IF tatal<10 THEN LET 1oh=3 

3970 IF total>9 AND tatal<13 THE 

N LET loH=2 

3975 IF CODE x«(l)<>32 THEN GO 

TO 3985 

3979 REM hl9h or loH 

3900 so SUB 4010; RETURN 

3984 REM combination dacision 

39B5 IF pla>>^l AND 90 1 THEN G 

3986 PRINT AT 21,0t'Vou noH haws 

a choice •: PAUSE 200 

' AT 21,0|-Hl/la or -|ii*(l 



TO : 



•2) !• 

INPUT ■■! 



ilgh/ 



3991 IF r»<)-hl- AND r«<>-K- Tl 
N GO TO 3990 

3993 IF r«=-hl- THEN GO SUB 4i 

3994 REM run 

3995 FOR i = l TO 4: IF rl i 1 Or ( : 
1)*1 THEN GO TO 399S 

3996 NEXT i 

3997 LET displ=>(3 AND rll>-6)*i 
AND r(ll=5l: LET el=7: LET x*' 

A ■+1-H16H" AND r(l)=6H-(-L0W" 



3998 1 



CODE , 



=32 THEN LET 
"*'• NOTHING OF ANY VALUED- 

4000 RETURN 

4010 LET x»=fHIOH OF " AND high 
l + CLOW OF ■ AND 10H)«STRC total 



4020 LET c 



li^h AND I 



low AND low): LET di9pZic0 

4030 LET el=(8 AND highl+(9 AND 
loH» : LET e2=0 



4500 REM Min check 

4510 LET a=0: LET b-0 

4320 FOR 1-1 TO 9 

4530 IF *(iK4 THEN LET a=a*l 

4540 IF fli)>10 THEN LET b^btl 

4350 NEXT 1 

4560 IF a>2 OR b>2 THEM 60 TO 4 

573 

4370 RETURN 

4575 FOR i-^l TD Z0 

4580 IF play'-2 THEN PRINT AT 21 
,5) FLASH 1| BRIGHT 1| INK It PA 
PER fifPLAYER -K-OME- AND a>2l,* 

(■TWO* AND b>2)+' HAS WON- 

4581 IF play=il THEN PRINT AT 21 
,5! FLASH li BRIGHT 1; INK 1| PA 
PER 6i (-SPECTRUM HAS WON!!!" AND 

a>PI*l*YOU WIN! WELL DONE.* AND 
b>2) 
4585 BEEP .01, i; NEXT i 
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4590 LET r«— ": INPUT ' 



.INE I 



4630 1 
4640 ] 
4650 t 



: r«"-* THEN 60 TO 4590 
: rm=-y- THEN GO TO 4660 
ET r«-*-: INPUT "STOP? (•» 
I'l ■( LINE r» 

■ r»=-- THEN 60 TO 46Z0 

■ r»=-5* THEN STOP 
I TO 4590 

4660 CLS : PRINT -¥QU NOW HftVE T 
HE OPTION TO ■'■■CHANGE THE GAME 

MODE. ,-■' -FIRSTLY ENTER ■-!-■ o 
R ■■Z" FOR^-'^THE NUMBER OF PLA 
VERS THEN (IF-''-YOU ARE PLAYING 

THE SPECTRUM) ■■• -ENTER •'-!•• j 
F YOU WISH TO GO" ■■FIRST, OTHER 



4680 LET play 
1 OR pl«y)2 Tl 
4690 IF play=: 
4700 INPUT ■-■ 



THEN GO TO 4700 



4720 


GO TO 


60 




49*5' 


REM 5 


et priority na 


rker 




DIM p 


r9): LET al=0; 












3010 


FOR i 


"1 TO 9: HEM a 


"Y count 






areas? 




5020 


IF *( 


i)<4 THEN LET 




5030 


IF -f( 


il>i0 THEN LET a2=a2t 


5040 


NEXT 






5050 


IF al 




TO 5210 






5060 


LET b 


=7 




5070 


FOR i 


-1 TO 9 




5060 


IF *( 


Xbl AND +(i) 


3 THEN 


3090 


bl-f ( 

NEXT 


): LET b2-l 




51»0 


IF hi 


7 THEN GO TO 






IF b2 


7 THEN LET p 




RETURN 






5120 


LET p 


b2)-b2: RETURN 




3130 


LET b 






5140 


FOR i 


1 TO 6 




5150 


IF +( 


Xbl AND -f (it > 






bl-+ 


11 : LET b2-i 




5160 


NEXT 




51S0 






5170 


LET p 


b2)-l: RETURN 




5180 


FOR i = 


7 TO 9 




5190 


IF *(, 


Xbl AND -f (i}> 




LET 


bl=t 


U: LET bZ=i 






NEXT 1 


: LET p(t>zt-b2 




'* 









5Z10 IF al<>3 THEN GO TO 5Z80 

5220 LET bl-14 

5230 FOR l-l TO 9 

5240 IF *(i(<bl AND *(1)>3 THEN 

LET bX-+U): LET bZ-i 
5250>NEXT i 
5260 IF bZ>-7 THEN LET plb2)-b2 

: RETURN 

5Z70 LET p(bZI-I: RETURN 

5280 IF bZ<>2 then GO TO 5300 

3Z90 LET aZ=0: FOR i-7 TO 9 

5300 IF *(i)>10 THEN LET aZ=.a2t 



' 



IF a2<Z THEN 



5310 NEXT 1 

5350 

3320 FOR i-7 TO 9 

5330 IF f<i)>10 THEN LET p(i)»j 
3340 NEXT i! RETURN 
5330 LET bl-14: FDR i-i TO 6 
3360 IF f[ll>10 AND fflXbt THEN 

LET bl-+li): LET b2=i 
5370 NEXT i: LET plbZ)-l: RETURN 



3380 FOR i-1 TO 9 
5390 IF *{il=il THEN 
5400 IF f (il=2 OR *( 



LET ( 



THEN 

5410 NEXT i; RETURN 

3499 REM check prlorlyl 

5500 LET a=0: LET i»^0: FOR i-i 



5510 


IF p( 


1=1 THEN LET 


a-i 




NEXT 






5570 








5330 


FOR i- 


I TO 3 




5540 


IF r( 


t < >a THEN GO 


SUB 62 


3550 


NEXT I 


: IF m~B THEN 


GO TO 



THEN GO TO 3640: 



5360 RETURN 
5570 IF p(7) ! 

REM run not 
5580 IF el-7 THEN GO TO 310 
5590 IF el=0 AND e2-0 THEN LET 
m-l: LET t(U=5: RETURN 
5600 IF p(7X>7 THEN oo TO 5640 
: REM run n/„ 



5611 



r FOR i=l TO 4 
5620 IF r(i)=el THEN LET iii=l; L 
ET t(ll-i: RETURN 
5630 NEXT i 
3640 IF p(8l<>8 OR totaX20 THEN 

60 TO 5720: REM high n/w 
5650 IF total >Z3 THEN GO TO 569 

5660 FOR 1-3 TO 5 

5670 IF r(iX4 THEN GO SUB 6Z10 

5660 RETURN 

5690 FOR i»4 TO 5 

Z« COMPUTIMG AUGUST«£PTEMBER iflS 







5710 RETURN 


GO SUB 62 la 


6D TO 58ae: REH low 


al>15 THEN 


573a IF total<12 THEN 


GO TO 577 


5740 FOR i-1 TO 3 




575fl IF r(i))3 THEN 
57Afl NEXT C RETURN 


□ SUB 6210 



577a FOR 1-1 TO 2 

37B0 IF r(i)>2 THEN GO SUB 62H 

57V0 RETURN 



seas IF 



I-l AND disp2. 



THEN 
GO TO 598 



)-a THE 



GO TO SB6a 
SSia IF dlsplOl THEN 
0: REM not pair 
3820 FOR i-1 TO 5 
SS30 IF rlilOe] AND p 
N GO SUB 6210 
3S4B IF p(eli>l THEN LET ib=4: I 
F i>l THEN LET t(ll-i 
5BS0 NEXT i : RETURN 
5660 IF plPl|>i AND p(P2)>l THEN 

GO TO 5910: REM 2 pair NG 
5870 IF pleI)-0 AND p(e2)-0 THEN 

GO TO 5940: REM 2 pair OK,re-r 



5879 REN 2 I 



11 



TO 5 



3880 FOR i=l TO 5 

5BP0 IF r(it<>e2 AND p(e21-0 OR 

■-IDOel AND p<»l)=0 THEN GO SU 

B 62ia 

5900 NEX' 
3910 for" 
592a if I 

GO SUB 6210 
3930 NEXT i: RETURN 
594H FOR 1=1 TO 3 
593B IF r-(i)<>H AND 
EN GO SUB 6210 
5970 NEXT i : RETURN 
5980 IF dl=pl<>2 AND 
EN GO TO Alia: REM r 
5990 IF disi 

GO TO 6050 
6000 FDR 1=1 TO 5 
6005 IF el=a THEN GO TO 6025 
6010 IF di5pl=2 AND *(ell>5 AND 
THEN GO SUB 621B 
p(«l)=3 AND r(l)i=el THEN 



i I =e2 THEN 

■ < i ) < >eZ TH 

llspZOZ TH 
Iicp2=l THEN 



6015 1 

GO £ 

6020 I 



) 6210 



'^*I FHEN LET M^l: LET t(l» 

IF e2=0 THEN GO TO 6045 
IF disp2-2 AND 4(e2>>5 AND 

;>e2 THEN BO SUB 62ia 
IF P(g2)=3 AND rti|.^e2 THEN 

TO AUGUST SEPTEMBER 1985 



MCAMy 

GO SUB 


S 


^^ 


» 


« 


604a 


>e2 


THEN LET m= 


• Z) <3 

; LET 


ANU 


6045 NEXT 
6049 REM 

310 


i=0 


RETURN 
1 hous* 
AND .2=0 


THEN 


GO T 




FOR 




TO 5 






6070 


s[j/ 


621 




e2t >l 


™b« 


6100 


IF p 


THEN GO SUB 
el 1=0 AND p 

rHEN GO SUB 
i : RETURN 


e2)-0 

e2) Jl 
6Z10 


».. 




THE 


1 GO TO 6130 


iBp2<>3 OR 
: REM not 


6120 


FDR 


^1 


TO 5 






6130 


>e2 AND 


>el AND diBpi=3 OR 
dl=pz=3 THEN 60 SU 



6140 NEXT i: RETURN 

6150 IF high=3 OR lc3M=3 OR i 

-4 OR el=7 AND p(7)=0 THEN 





IF hlgh- 


? AND p(8)"a THEN 


LET m-i: LET 


(11=5: RETURN 




IF lDH-2 


AND p(9)-a THEN L 




■l: LET t 


lt=l: RETURN 




LET .1=5: 


FOR i-1 TO 5 


6190 


LET t ( i ) 


i: NEXT i: RETURN 




LET m=rn* 




62Z0 


RETURN 




6300 


IF NOT h 


gh AND NOT lox THE 


N RETURN 




6310 


IF f(81<4 


AND high OR ♦(9t< 




lOM THEI 


RETURN 




IF diaipl^ 


2 AND di.p2-l AND 




-high)>3 


AND high THEN RET 



6330 IF disp 
isplMoN AND 
6340 IF (fte 
TURN 

6344 IF •2-0 

6345 IF 1* («: 
TURN 

6330 IF * fell 
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high THEN RETURN 
6394 IF eZ=0 THEN GO TO &3A0 
A355 IF f<PZI>10 AND f<B><lB AND 

hiqh THEN RETURN 
AZA0 IF 'flFl)>10 AND fl9l<10 AND 

lOH THEN RETURN 
i364 IF eZ-a THEN GO TO 637B 
iSSfiS IF -f(e2>>10 AND f (9X10 AND 

toH THEN RETURN 
6370 GO SUB 1010! RETURN 

8999 REH graphics 

9000 FOR i-0 TO 17: PRINT PAPER 
61AT i,14)" •: NEXT i 

900S PRINT PAPER 6(flT 0,15i- ■ 
■AT 1,131- 'lAT 2,151- -iAT 3, 
15(- -IAT 4,13i- -JAT 5,1B(- 
■iAT 6,151- -(AT 7, 151- '(AT B 
.151- "IAT 9,151- -[AT 10,151- 

-[AT 11, IB;- "IAT 12,151- -1 
AT 13,1SI- -(AT 14,151- -JAT 1 
5,151* -IAT 16, is;- -IAT 17,15 
t • - 
9010 FOR i=a TO 17: PRINT PAPER 

2;AT i,2iT*iAT i,23;i*: NEXT i 
9B20 FOR i-0 TO 17: PRINT PAPER 

4IAT l,8lz*iAT i,17;zC: NEXT i 
9040 PLOT 15,31: FOR 1=1 TO 4: D 
RAW 216,0: DRAW 0,16; DRAW -216, 

9050 FOR i=2 TO 14 STEP 2: PLOT 



175: 



143: 



?,38; 'Y 



FOR i=17 TO 29 STEP 2: PLOT i*8- 
1,175: DRAW 0,-143: NEXT 1 
9055 JF pla>'^l THEN GO TO 9070 
9060 PRINT INK liAT 4,0;-p-|AT 
5,0i-L-iAT 6,0;-A-|AT 7,0i-V-iAT 

8,0i-E-iAT 9,01-r-;AT ll,0i-O"l 
AT i2,0|-N-;AT 13,01 -E- 
9065 PRINT INK 2;AT 4,30;-p-|AT 

3,30I-L-(AT 6,30;-; 
-;AT 8,30i -E-IAT 9,: 
30J-T-IAT 1Z,30;-W!AT 13,30; "O- 
: GO TO 9080 

9070 PRINT INK 1;AT 4,0|-S-(AT 
5,0|-P-iAT 6,0i-E-|AT 7,8;'C-iAT 

8,0i"T-iAT 9,0i-R*|AT 10,0|-u-; 
AT 11,0|-M- 
9075 PRINT INK 2)AT 4,30|-VIAT 

s,30|-o-iAT 6,30;-u-;at 7,30i*r 

MAT 8,301-S-iAT 9,301 -E-;AT 10, 
301 -L-;AT 11,30; -F- 

9080 IF gc3-l THEN PRINT AT 15,0 
I INK 7; PAPER 0| FLASH l;-X-(AT 

15,301 PAPER 7; ■ - 
90B5 IF go--l THEN PRINT AT 15, 
01 PAPER 7|- -iAT 15,30; INK 7; 
PAPER 0; FLASH II -X- 
9090 RETURN 



9100 REM InstructiariG 

9110 BORDER l: INK 6; PAPER 1: P 

RINT : CLS 

9120 PRINT -THE PURPOSE OF THIS 

GAME IS TO- ■■ -MANOEUVRE THREE CO 

UNTERS INTO- -'-THE RED AREA AT V 

OUR END OF THE" '-BOARD. YOUR OP 

PONENT WILL, IN TURN, DO LIKE 

WISE. THERE ARE 9-'' 
9130 PRINT -COUNTERS, INITIALLY 
PLACED DOWN- ■'■THE CENTRE OF THE 
BOARD, ONE IN- ■'•EACH OF LANES 

1-6, R, H I. L. YOU WILL NORMA 

LLY BE ABLE TO MOVE 1---"0R 2 CO 
UNTERS ON EACH TURN. YOU- ■■-DO T 
HIS BY THROWING FIVE DICE. • 
9140 GO SUB 9300 

9150 PRINT -AFTER THE FIRST ROLL 
OF THE DICE-^^-VOU WILL BE ABLE 
TO RE-ROLL AS- ''-MANY DICE AS Y 

ou WISH TWICE MORE"'--you can r 

E-RDLL A DIE ON YOUR- ■■ -SECOND R 
E-ROLL THAT YOU HAD KEPT-" 
9160 PRINT -ON YOUR FIRST RE-ROL 
L. YOU WILL- -"BE AIMING FOR COM 
BINATIONS THAT- "-WILL MOVE THE 
COUNTERS TO YOUR- ' • -ADVANTAGE- P 
OSSIBLY GETTING "•' -COUNTER ( E 1 I 
NTO YOUR RED AREA OR" ""OUT OF Y 
OUR OPPONENTS RED AREA. • 
9170 GO SUB 9300 
9180 PRINT" -COMBINATIONS THAT UI 

LL MOVE" ' -COUNTERS ARE TW 

O OR MORE OF THE SAME DIE-" [H 
OUES LANE NUMBER OF DICE-" VAL 
UE)""- A RUN OF ALL FIUE DICE" 

(MOVES 'R^ LANE> - 
9190 PRINT ■- A HIGH SCORE (MOW 

ES 'H' LANEl A LOW SCORE (M 

OVES 'L' LANE> -■■ -PRESS ANY KEY 
TO SEE HOW MANY-" -saUARES THE C 
OUMTERS CAN MOVE- 

9200 PAUSE 0: BEEP .25,3; BEEP . 
13,0: CLS 

9210 PRINT TAB 171 -A PAIR-ITAB 2 
6|-1-"TAB 121-3 OF A KIND-ITAB 
26|-2-|''TAB 9)-FOUR OF A KIND") 
TAB 26(-3"'TAB 9t*FIVE OF A KIN 
D-ITAB 26|-4"'TAB 91-HIGH RUN ( 
2-61 -(TAB 26; -3- ■ ■ 

9220 PRINT TAB 10|-LOW RUN (1-51 
■ITAB 26I-2-"TAB B;-HIGH SCOREC 
>251-|TAB 26!-3-^'TAB 6I'HIGH SC 
ORE(23-251 -|TAB 26|-Z"-'TAB fll-L 
DW SCORE 1(101-|TAB 26|-3-"TAB 
6;-L0W SCORE Ii0-121-(TAfl 261-2- 
''■NOTE THAT 3 COUNTERS CAN BE"' 
-MOVED WITH 2 PAIRS OR FULL HOUS 
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■NOTES- I 



MOVES IN 
A COUNTER 
THE OUTER 



7230 GO SUB 930a 

9ZA0 PRINT 'TAB 1' 

m OVER II ■ ■ 

OT COMBINE MOVES IN* 

H »c LOW LANES WITH" 
THE 1-6 LANES. •■ • -2 

CANNOT GO BErOND-'- 

RED RANK- ANV ■ 

9245 PRINT ■ SURPLUS MOVES ARE 

WASTED 3) A PLAYER'S TURN IS 

SHOWN By -I FLASH 11 INK 71 PAP 

ER 01 -K- I FLASH 01 INK 61 PAPER 

9238 PRINT -4) DICE NOS. ARE SHO 
WN IN SLACK-'- ON GREEN- E.G. 
: 01 PAPER 41 '5-: GO SUB 93 



00 

9255 CLS : 
IS SET UP 
INITIALLY-' 

HE CENTRAL - 
ONCE ONE l: 



RINT -WHEN THE BOARD 
■'"THE COUNTERS ARE 
■SUPERIMPOSED OVER T 



AS: 



MOVED IT APPEARS 
-'•TAB 131 INK 01 PAPER 61- 
PAPER I'TAB 151 PAPER 61 -/\ 



SEE THESE* 
PRESS - ■ i - ' 

ANY OTHER KI 



IF YOU WISH TO 
ICTIONS AGAIN 
■OTHERWISE PRESS 



I TO S 



110 



92?B BORDER i: PAPER l: INK fi: C 
LS ; PRINT -IF YOU WISH TO PLAY 
THE SPECTRUM" "-ENTER "-I-- OTHE 
RUISE DECIDE NOW" '■ -WHO IS TO GO 

FIRST AND ENTER '-2 (BLOW 

ON THE KEYBOARD FOR LUCK)' 

9271 INPUT -ENTER -M-- OR --2'- 

9372 LET plny-lNT play: IF pl»y> 
2 OR pl«y<l THEN GO TO 9271 
9275 IF PLAY-2 THEN GO TO 9290 
9280 CLS : PRINT ■PLEASE NOTE TH 
AT WHEN THE ""SPECTRUM HAS DEC 
IDED WHICH- " ■DICE TO RE-ROLL IT 
WILL ■'"RE-ARRANGE THE DICE IN 
NUMERICAL^' ' ■ORDER IMMEDIATELY 
BEFORE ■" -STARTING TO RE-ROLL T 
HEM.-' ■ ■ 

9285 PRINT -IF VOU WISH TO GO Fl 
RST eNTER^"-^^-i-- OTHERWISE EN 
TER - - 1 • ■ - 
92B6 INPUT 



'ENTER --i-- OR ■■ 



92B7 LET go-INT go; if ga-0 OR g 
o)l OR gD<-l THEN GO TO 9206 
9290 BEEP .23,3; BEEP .15,0: BEE 
P .15,0; BEEP .25,3: CLS : RETUR 



•PRESS ANY KEY TO 
PAUSE e: BEEP .25,3: 

CLS : RETURN 



9300 PRINT t 
CONTINUE-; 

9900 FOR : 

9901 READ A 

9902 POKE USR -«-*i,« 

9903 NEXT i 

9904 RETURN 

9905 DATA 0,8,24,56, 120, as, SB, 24 
,24,24,126,126,0: REM A 



bB' 



REN 



2,24,: 

-2 

lATA 0,126,126,6,12,24,4 
12r^,6,6, 102, 124, 120,0; 
EfcF-3 

9920 DATA 0,6,14,30,54,102,102,1 
,127,127,6,6,6,6,0: REN Gk 

H— 

9925 DATA 0,126, 126,^6, 96, 96,126 

,126,6,6,6,12,24,112,96,0: REM I 

bJ-5 

9930 DATA 0,6,12,24,24,48,48,120 

,108,108,102,102,54,60,24,0: REM 

KtiL-6 
9935 DATA 0,36,124,102,102,108.1 
08.120,112, : 
02,0: REM Nl 
9940 DATA 0,102,102,102,102.102, 
102, 126, 126, 102, 102, 102,102,102, 
102,0: REM 0»rf»-H 

9945 DATA 0,96,96,96,96,96,96,96 
,96,96,96,96,96,126,126,0: REMS 
fcR^L 

9950 DATA 20,28,68,28,116,28,164 
,28,212,28; REM dice plot co-ord 



1,108, 102, 102,1 




^PROGRAMMING TIPSj 



Conversion tips 

A guide to 2X81 /Spectrum program conversions 
from David Nowotniic. 



The 
by t 


.The 


■IS of BASIC otfe 
D ZX computers 
ha I many progr 
n be used by 
ZXei has only 


SCROLL 


Ihe Speciru 
nd UNPLOT, 



Dommand PLOT aj 



ohiangea appear in Ihe tablu 
A EommantJ such as P0« 
USR "a" , , , on (he " ^ 
trum indrcBles User D 
GraphicE; ZXB^ users 



ZXB1 Spaetrum Com man 

SCROLL RANDOMISE USR 35B2 If the pro 

LET t = USR 35B3 option. If 
PLOT Y,X PRINTAT21-Y/2,X/2; pfinVthr 
UNPLOTY.X PRINT AT 21 -Y/2.X;2; Prjnt^a sp 



r squars graphics 



LETy = |decima 
Convarsion to d 
10010101 =!■ 



/■ OntheZXai use 
lal equivalent, but 
re; BIN is often 



READ/DATA 
69 READ x,y 
DATA 50,60 



OEF FN and FN 
eg DEFa()c)=SQF 
LETt = FN alii 



LETX$ = "SQR X 

LET X = l 

LET T= VAL XS 



READ and DATA ai 
information in a pro 

The defined functio 



SCREENS 

egLETa = SCR£EN9 »,v LET A = PEEK|PEEK 1 
+ 256'PEEK 16397 



IG AUGUST /SEPTEMBER 19 



IPROCRAMMINC TIPSI 



POKE 23673, 0:POK£ 23673. 



23674 as well. 



variable T will 
B in seconds after 



POKE 16510.0 



3 HAM TOP 

POKE 163Ba,X-256-INT CLEAR. 

(X/2561 

POKE 16389, INT(X/2E6) 




System variables Conversion Table. 



Va/iabl8 


ZX81/ 




T/SIOOO 


BR£G 








CHADO 




COOHOS 




COOBDSIBytoai 




















ELINE 




ERRNH 






6294 
















6436 



23655 

No Equivi 

23645 

23677 

23678 

23629 

23664 

No Equiva 

23659 

23641 

23610 







MARGIN 








MEMBOTT 




























RAMTOP 




SEED 




SPSN 




S POSN (BytB 21 
















STRIEN 




TADDR 














640B 



23560 

No EqulvBler 

23666 

2369S 

23617 

23637 

23662 

23621 

23296 

23680 

23730 

23570 

23668 

23669 

23651 

236S3 

23660 

23666 

23668 

23627 

No Equivalsn 

23647 



^ PROGRAMMING Ti PSl 



De-bugge 



V 



Cetting a program typed in is often only the 
start of your problems. Ed to the rescue. 




PROBLEM PACE 



r Problem Page 



3 Colour in a shap 









e Ihe im 




s PAPER, 






TheCmCLEcomm 


and is the 








LETfc = 5*S 


Sheffield 


■full' field, in this easel, the 






PRINTINTtc ( = 301 


Dear Gary, 


automatically to be 'processed'. 


1 am enjoying your machine code 








As a simple example, you have 








ad a solution lo this problem, so 1 


no option to delete characiers. 


for a invisible NEWLINE 




Bui Hie tol lowing djOr't: 


can pass on Ihe information sup- 




character on the end of each row 






plied to me. 


thepoint. It's written to woAon 


of the display file of the ZXB1 . 




LEHc=.5#6*10 


RS232 connector on lhe"zX In- 


Ihe ZXB 1 as well as the Spec- 


Can you explain this please? 


' , PRINTIMTfc i = 2gl 


terface and printer should be as 




Peter Robinson, 






follows: 


100LETZS = -- 


Hastings, East Sussex 








110FORI = 1T0« 




^.^ 


am fl[ my wfts' end [rying to 


2 ^ 2 

.1 .? 


1Z0LETX$ = INKEYS 

130 IF XS = — THEN GOTO 




Ina 


grom uses INT often. Can you 


4 ■>!! 


130 


RAM pack Bvaiiable and users 




helD? 




140LETZS = ZS-fXS 






IMisI Dane Kurth, 
BusBwil. Switzerland 




150 PRINT X$; 

1B0 IF INKEVS = XS THEN 

GOTO 160 

170 NEXT 1 


machine. The full display file of 


he 


in addition, the 4.6 and B 
wires on the Brother connector 




Dear Dane, 


should be joined together. The 






nd 


The problem is not a Oug in your 
computer, as / get the same on 


HR-B should be set to abii com- 
munication, and the Spectrum 


Use the RETURN for a 


'shrinlting' Ihe display file when 




mv Speatrum. II has to do with 


baud rate set to 300. 


subroutine only. 


computer when the end of a row 




the cornplicaled way floating 










Enter 








inrealHy, il,sa 'bug- - after all, 
Iheenswer,! wrong. Elsewhere 




SLOCO 


10, or 32 characlersl. Ihe 




Dear David, 










1 have Been on a larger com- 










puters the facility to enter data 








decimal spaces. Therefore, to 


without the need for -ENTER' to 




Ucular row. two NEWUNE 


?." 


anercome this bug, add a very 
smell number 01 your yar.able 


be pressefl, Tfie computer ap- 
pears to recognise when a field 


July, 19841 seemed an ex- 
cellmt addition to the plans and 


characters appear together, 
saving31 bytes compared with 
the 'full' display file. 




■fc'lfor example 0. 00051 when 


haE been tilled, then processes 


elevations which 1 can produce 








using PLOT and DRAW. 


The ZX8I automatically 




oilNTtc. use INT lie + .00051 . 


fotENTER.CanthaSpectriirrdD 


There are a number of things 




This will correct Ihe 'bug'inthe 






3. 75KofRAM, at which point it 








will always create a 'full' display 


H 1 malhemarics to be inconBCI. 


Steve Stewart. 




file of 33 (including NEWUNEI 


Southpon. Lanes 


2. Produce curves or circles 








l\ COMPLTTING AUGUST «EFI EM 


BER198S 




u, 




We have opened s Sinclair club 
m Israel. The dub will be fo. the Divor Un, 
jsers of the Spectrum, Spec- Ddu-Ho;25 
irum plus and OL The sjtjBcrlp- '■ ' ■- ■" 
tFOn IE about S9 (10,000 



inthly neiA 



7843 



Idaas and knowledge on Tel: 009 456 61 29 68 cli 

and abaul TS compLlers, 1 

2) Hardware and Sotlware rTie"m'bBr's"'Bnd "m "h"""" '"h 

demDr.5trflting and NOrWaV USGr CrOUD more, ' " 

perhBpB avert exchange. ** The newletter we have in 

r,pX"in'mnm^'rf """" °f^''^\'^ompuling mind will include a TOP 30 

41 p'erhfp:tre':'d':x. a^^ds^o',^^^rr^roo"a^rh;^;: -io":vhTrjreSi:n'idrer 

^^erreollg'roupbu.lna ^^.f^ou will pri., i, in Club Car- tise <Pr Beying*uvin9/.«chang- S.A. 

P™^'' We counr mo,^ ,han 60D ™hs,eve, hln^s Ad ,1^5 onpro COrreSPOndenCG 



P.O. Bo«33 7 
HBr;elia'B'46 103 




Britain's Best Magazine 
For The Sinclair user 



L 






\&oXMJWum^ 



St El 3.50 will ensure that the ne> 
issues will be lovingly wrapped 



IX Computing Subscriptions. 
Infonet Ltd, 
Times House, 

1179 The Mariowes, 
Hemel Hempstead, 
Herts HP1 1BB, 



Alternalively you can pay with youi 
BsrclBYcard: simpiv lill in your card 
form and send it off. Do NOT send 




ZX Computing Subscriptions, 

Infonet Ltd, 

Times House. 

179 TheMartowas, 

Hemel Hempstead, 

Harts HP1 1 BB, 

£13.50 forsiKissui 



H 



I I M I I M I M I M I 



accelerated surface post 



D 

n 
n 

surface I I 



ZX COMPUTING 



Lineage: 40p pei worO ^^ JS /"^PX 

Semi display: eg.OO per srngle column cenlimetre Ring ( f ) 

(or inlormalion on series bookings/discounls \ ■! / 



01 - 437 0699 

Send your requirements to: 
DAVID HORNE 
ASP Ltd.. 1 Golden Square. 
London W1 




ZX C□MPllTI^G AUGUST/SEPTEMBER 19BS 



MDIb WDIb FOR TAPE TO DRIVE TRANSFER 






DON'T LEAVE 

IT TO CHANCE!! 

PHONE DAVID ON 

01 437 0699 



It's easy to 

complain about 

advertisements. 

I But which ones? 



Evt'r>' week millions ni adwrtist-mt'nrs 
appear in print, on posters or in the cinema. 

Most of them comply with the rules 
contained in the British Code of Advertising 
Practice. 

But some of them break the rules and 
warrant your complaints. 

If you're not sure about which ones they 
are, however, drop us a line and we'll send you 
an abridged copy of the Advertising Code. 

Then, if an advertisement bothers J 
yoi;, you'll be justified in bothering us. ^ 

Ifar 



r^ 



ZX COIVIPUTING 

CLASSIFIED ADVERTISEMENT - ORDER FORM 



II you have something lo sell now's your chancel Don't turn the page — (urn lo ual 
Rales o( charge: 40p per word per issue plus 1 5% VAT (minimum of 1 5 words). Please stale 
classification and posl to: ZX COMPUTING, CLASSIFIED DEPARTMENT, 
1 GOLDEN SQUARE, LONDON W1. 





































£5.25 












C7.00 












e8,75 












El 0,50 












£12,25 












El 4.00 












El 5,75 












El 7.50 



' advert m ZX COMPUTING fo 



SOR Debii my Access /Ba re laycara H 
(DeieiB as r-ecessary) ■ 

1 1 1 1 I I I M 1 1 1 1 I I'l 1 1 I .»...„: 



PIsaH use BLOCK CAPITALS and include poM cc 
Niw IWf/Mtm/WlM/im 



!X COMPUTING AUGUST/SEPTEMBE 



REPAIRS 
PHONE DAVE 01-437 0699 



ZEDEM COMPUTER L' 



FAST SPECTRUM 

and 

BBC REPAIRS 



OFFEH AN UTEHHATIONAL 



When you need fast computer repairs 



MANCOMP LTD 

(Dept ZX) 

Prpntworks Lane, 

Manchester, 

M19 3JP. 

Tel: 061-224 1888. 





NickFaldo's ^ 




YOU 



Mm 




AVIEWtoAKILL 


THE ( OMPUTER f ■ AME 






YOU will become 
James Bond 

In his first arcade/adventure 

available on Spectrum 48K, 

Commodore 64, and watch out 

for Enterprise 64, Amstrad, 

MSX and others 


OFDEH VOUH COPY NOW! R^ 10 Ooroa'K LIO.. ^0^ WorDlB Road. 

ADDRESS :i« Kirtgsuxxd f>ue cJ-ioH-om 

COUNTY Ifse^-JT POSTCODE. WetteH 

PIHB5S send rra . I . .,copto»o1 "A Viewto aKiN - Tlie Compule.GaKie" 

PleBaaDabnm^CReOrTCARoD Signature: 







